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I.  INTRODUCTION 


There  has  been  a  very  rapid  growth  in  the  use  of  microprocessors.  With  the 
advent  of  physically  smaller  but  functionally  more  capable  and  faster  microprocessors, 
microprocessor  systems,  besides  being  cheap  and  practical,  are  becoming  almost 
equivalent  to  the  capability  and  speed  of  main-firame  computers  of  the  past. 
Ctmsidering  all  these  reasons,  a  complete  and  thorough  understanding  of  the  capabilities 
of  microprocessors  and  microcomputers  is  essential.  A  microprocessor  software 
development  system  is  a  necessary  part  of  this. 

The  debugger  created  in  this  thesis  study  is  software  part  of  a  complete 
MC68020  microprocessor  development  system.  The  hardware  part  is  the  MC68020 
based  Educational  Computer  Board  (ECB),  which  is  developed  by  Tugcu[1989].  In  fact, 
the  development  of  the  software  and  the  hardware  was  done  simultaneously. 

A  debugger  for  the  MC68000  (called  Tutor  Monitor  [Ref.  1]),  was  created  by  the 
Motorola  Company  for  training  and  operational  use.  As  far  as  the  execution  of  a  user 
program  is  concerned,  this  debugger  is  capable  of  doing  the  same  things  which  the 
Tutor  Monitor  can  do.  To  be  more  accurate,  the  collection  of  commands  provided  in 
this  debugger  is  a  proper  subset  of  the  commands  present  in  the  Motorola’s  Tutor 
Monitor.  Since  the  announcement  of  the  Motorola’s  ECB,  ten  years  ago,  there  have 
been  significant  improvements  in  microprocessor  speed,  instruction  sets,  etc.  Also,  the 
utilization  of  coprocessors  has  added  mote  precision  in  scientific  calculations.  This 
debugger,  which  was  designed  ;o  be  used  in  debugging  MC68(X)0-MC68020  assembly 
language  programs  (for  MC68020  instrucbons,  see  Ref.  2),  is  also  capable  of  handling 
MC68881  Coprocessor-related  instructions  (for  MC68881  instructions,  see  Ref.  3), 
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thereby  giving  the  user  higher  precision  debug  ci4>abiUtie3.  This  feature  is  not  present 
in  Tutor  Monitor. 

Part  of  this  debugger,  the  monit(»r,  runs  on  the  ECB  and  carries  out  the 
commands  sent  by  the  main  program.  The  monitor  program  also  includes 
communication  routines.  With  the  use  of  these  two  routines,  serial  communication  is 
done  in  software. 

One  of  the  advantages  of  this  system  is  that  it  does  not  require  an  extra  dumb 
terminal,  which  is  needed  for  the  Motorola’s  ECB  System.  Thus,  this  debugger  can  be 
viewed  as  an  up-to-date  version  of  the  Motorola’s  debugger. 
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II.  A  GENERAL  OVERVIEW  OF  DEBUGGERS  AND  ASSEMBLY  LANGUAGE 


The  goal  of  this  chapter  is  to  give  a  general  background  about  assembly  language 
and  debuggers.  Assuming  that  this  debugger  is  used  as  a  teaching  aid  in  a 
microprocessor  architecture  course  (e.g.,  EC2800  at  the  Naval  Postgraduate  School)  and 
the  student  is  a  beginner  in  this  area,  the  information  contained  in  this  chapter  will 
serve  as  introduction. 

A.  WHAT  IS  AN  ASSEMBLY  LANGUAGE  ? 

An  assembly  language  is  a  level  of  language  between  the  machine  language  and 
high  level  language.  Machine  language  consists  of  a  series  of  binary  digits  which  is  the 
computer  can  interpret  directly  but  is  very  hard  for  humans  to  use.  In  assembly 
language,  each  machine  instruction  is  represented  by  a  nmemonlc,  and  there  are  no 
binary  digits.  For  example,  it  is  a  lot  easier  to  remember  the  words  like  MOVE,  ADD, 
SUB,  etc.,  than  to  remember  a  series  of  binary  digits  corresponding  to  these 
instructi(His.  Essentially,  assembly  langua^  is  an  English-like  version  of  machine 
language,  and  there  is  a  one-to-one  correspondence  between  instructions  in  dtese  two 
languages. 

In  addition  to  representing  the  instructions  by  mnemonics,  memory  locations  can 
also  be  given  labels.  In  this  way  the  assembler  keeps  track  of  the  addresses  rather  than 
the  programmer. 

With  the  design  of  the  intelligent  compilers,  high  level  languages  became  more 
capable  and  more  widely  used.  Meanwhile,  assembly  language  became  less  practical 
and  less  important  in  comparison.  High  level  languages  are  easier  to  learn  and  most 
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impoitantly,  they  are  poctaUe.  On  the  other  hand,  assembly  languages  are  not  that 
simple  and  portable.  They  are  heavily  machine  dependent. 

Despite  the  disadvantages  mentioned  above,  assembly  language  is  still  used  and 
has  some  advantages  over  high  level  languages.  Assembly  language  presents  all  the 
available  resources  of  the  processor  to  the  user.  It  allows  more  effective  code 
(sometimes  using  less  memory). 

1.  Format  of  Assembly  Language  Programs 

Assembly  language  program  statements  can  be  considered  to  have  four  parts. 

•  Label  field 

•  Opcode  field 

•  Operand  field 

•  Comment  field 

As  mentioned  above,  labels  are  used  to  refer  to  memory  locations,  as  symbols 
rather  than  absolute  addresses.  Labels,  usually  stan  in  the  first  column.  Dq>ending  on 
the  assembler,  most  labels  are  followed  by  a 

The  opcode  field  contains  the  mnemonic  for  dte  instruction  to  be  executed.  Also, 
assembler  directives  such  as  DC  (Define  Constant),  DB  (Define  Byte),  etc.,  can  be 
included  in  this  field. 

The  operand  field  contains  the  source  and  destination  locations  which  will  take 
part  in  the  execution  of  that  instruction.  They  can  be  registers  or  memory  locations. 

The  '^mment  field  serves  as  a  place  where  the  programmer  can  explain  his 
program.  Conunents  are  especially  helpful  in  assembly  language  programs,  since  such 
programs  are  substantially  more  difficult  to  understand  than  high  level  languages. 
Without  comments,  it  may  not  even  be  possible  to  understand  another  programmer’s 
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assembly  language  program.  For  these  reastms,  an  assembly  language  programmer 
should  have  the  habit  of  writing  down  comments. 

Two  sample  assembly  language  programs  are  given  in  Appendix  O.  Anything 
preceded  by  a  semicolon  is  considered  to  be  a  comment,  which  is  ignored  by  the 
assembler.  Sample  program  #1,  copies  the  elements  of  an  array  of  bytes  A[5J  to  an 
array  B[5].  When  this  program  is  assembled,  a  listing  file  is  obtained,  which  is  given  in 
Appendix  O.  There  are  two  more  fields  in  the  listing  file.  These  fields  are  introduced 
by  the  assembler.  The  first  shows  the  addresses  and  the  second  field  shows  the 
hexadecimal  representation  of  the  machine  code  corresponding  to  the  instructions.  By 
looking  at  the  address  field,  the  user  can  easily  figure  out  how  many  bytes  of  code  is 
produced  by  each  mnemonic  instructiwi.  Sample  program  #2  serves  as  an  example  of 
coprocessw  instructions. 

B.  WHAT  IS  A  DEBUGGER  ? 

Debuggers  are  software  tools  which  help  in  developing  and  testing  programs. 
These  programs  might  be  written  in  assembly  language  or  in  a  high  level  language. 

The  debugger,  created  in  this  thesis  study,  is  designed  and  implemented  to  debug 
MC68020  assembly  language  programs.  By  using  this  debugger,  the  user  can  create  his 
assembly  language  program,  assemble  it,  download  it  to  HCB,  and  run  it.  He  can  also 
disassemble  his  code  (Disassemble  means  the  hexadecimal  representation  of  memory 
contents  are  converted  into  corresponding  mnemonic  instructions),  display  or  modify 
the  memory  or  register  contents.  In  short,  he  can  control  the  execution  of  his  program. 

As  an  example,  let  us  take  the  sample  program  #1  (see  Appendix  G)  and  further 
let  us  assume  that  the  user  sets  a  Breakpoint  at  address  $001 A  (Dollar  sign  indicates  a 
hexadecimal  number)  which  is  the  label  LOO?.  The  user  also  sets  the  program  counter 
to  $000A  which  is  the  beginning  address  of  his  program.  When  he  starts  to  run  his 
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program,  each  time  the  btea]q>omt  is  reached,  execution  will  stop  and  control  is  given 
to  the  debugger.  He  will  be  able  to  see  the  various  register  and  memory  contents.  At 
this  step  he  can  make  some  memory  or  register  modifications  or  he  can  continue 
without  any  change.  On  the  other  hand,  if  the  user  diooses  to  Trace  Branch  he  will 
be  able  to  see  the  same  kind  of  information  as  many  times  as  a  branch  is  indeed  taken. 

Another  choice  may  be  setting  a  breidq)oint  at  address  $0024  which  is  the  end  of 
user  program.  If  the  user  does  not  select  any  Trace  option,  he  will  see  the  information 
only  once,  at  the  end  of  execution  of  his  program,  skipping  the  intermediate  parts.  With 
the  selection  of  a  Trace  option  or  by  setting  breakpoints  and  breakcounts  or  just  by 
removing  the  present  brealqpoints,  the  user  can  have  a  variety  of  levels  of  control  when 
executing  his  program. 

More  information  about  the  usage  and  capabilities  of  this  debugger  can  be 
obtained  from  Appendix  F. 
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m.  DESIGN  AND  IMPLEMENTATION  OF  THE  DEBUGGER 


This  chapter  gives  a  brief  descr4>tion  about  the  design  considerations  and 
implementation  of  this  debugger.  More  detailed  infonnation  can  be  obtained  from  the 
appendices  which  are  referenced,  when  necessary,  throughout  the  chapter. 

A.  DESIGN  OBJECTIVES 

The  design  goals  are  listed  below: 

•  This  debugger  should  be  user-friendly. 

•  It  should  be  capable  of  supporting  essential  debugger  commands. 

•  It  should  also  support  MC6888 1  Coprocessor  related  conunands. 

An  important  aspect  about  user-friendliness  is  that  the  user  should  not  be  forced 
to  memorize  a  numba  of  commands.  Foi  this  reason,  it  was  decided  to  implement  this 
debugger  cm  a  Macintosh  computer.  The  pull-down  menu  capabilities  of  the  Macintosh 
made  it  possible  for  diis  debugger  to  be  a  menu-driven  software  tool. 

On  the  other  hand,  only  basic  debugging  commands  were  supported  for  reasons 
of  simplicity.  These  conunands  are  the  most  widely  tised.  In  general,  these  conunands 
can  be  put  in  three  categories: 

1.  Memory  display/modify  commands 

2.  Register  (either  microprocessor’s  or  its  coprocessor’s)  display/modify  commands 

3.  Ctmtrol  ctanmands  (e.g.,  setting  a  breakpoint,  tracing,  etc.) 

After  determining  the  design  objectives,  it  was  further  decided  to  design  the 
debugger  as  two  separate  modules.  This  was  an  inevitable  result  of  the  fact  that  this 
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debugger  is  to  be  used  in  debugging  assembly  language  programs  which  run  on  the 
ECB.  As  a  result,  the  following  two  modules  are  implemented: 

•  The  main  program  which  is  mostly  written  in  C  and  runs  on  a  Macintosh.  (Part 
of  main  program,  which  does  the  disassembly,  is  written  in  assembly  language.) 

•  The  s(q>poit  program  (monitor)  which  is  written  in  assembly  language  and  runs 
on  the  EC3. 

The  distribution  of  the  functions  to  die  main  program  and  the  monitor  program 
are  described  in  the  following  two  subsections. 

1.  The  Functions  of  the  Main  Program 

The  functions  provided  by  the  main  program  are  listed  as  follows: 

•  Display  menus  through  which  the  user  interface  is  provided. 

•  Alert  the  user  if  something  goes  wrong  either  in  the  Macintosh^or  in  the  ECB. 

•  Provide  serial  communicatiou  with  the  ECB,  and  widi  the  printer  at  a  Baud  rate 
of  9600. 

2.  The  Functions  of  the  Monitor  Program 

The  functions  provided  by  monitor  program  can  be  listed  as  follows: 

•  Provide  serial  communication  with  the  Macintosh  at  a  Baud  rate  of  9600. 

•  Execute  the  command  which  is  sent  by  the  main  program. 

•  Provide  an  Abort  option  to  the  user. 


In  the  following  two  sections,  a  brief  discussion  is  giv  jn  of  the  design  and 
implementation  of  these  two  modules. 
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B.  MAIN  PROGRAM 


The  main  program  consists  of  functions  contained  in  five  different  files.  They  are 
monitor.c,  download.c,  disasm.c,  menu.c,  and  test.c.  Except  for  the  code  written  for  the 
disassembler  which  is  written  in  assembly  language,  the  rest  of  the  code  is  written  in  C 
Langxiage.  The  source  code  for  the  disassembler  in  the  Tutor  Monitor  [Ref.  1]  is 
obtained  from  the  Motorola  Company,  and  then  with  the  addition  of  some  changes,  it 
was  adapted  to  the  Macintosh. 

When  the  debugger  is  first  run,  it  starts  executir^a  with  an  initialization  step.  The 
support  of  serial  communication  with  ECB  and  serial  printer,  through  the  modem  port, 
and  serial  printer  port  respectively,  are  done  in  download.c  during  the  initialization 
process.  The  allocation  of  the  required  input  and  output  buffers,  the  baud  rate,  etc.,  are 
all  done  on  the  entry  to  the  program  mainO. 

In  order  to  get  the  start  and  end  addresses  of  the  user  program  which  •:  to  uc 
downloaded,  test.c  is  run  once.  After  that,  main()  displays  the  main  menu,  awaiting  a 
user  command  which  could  be  the  execution  of  a  single  function  such  as  Qearscreen  or 
the  selection  of  any  particular  menu. 

The  choice  of  menus  are  listed  below: 

1 .  Options  menu 

2.  Registers  menu 

3.  Floating  Point  Registers  menu 

4.  Memory  display  menu 

5.  Memory  modify  menu 

6.  Go  menu. 

The  user  can  do  different  things  in  different  menus.  A  flowchart  for  each  menu  is 
given  in  Appendix  A.  This  gives  a  clear  understanding  about  how  the  menus  are 
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organized  and  how  switching  occurs  between  the  menus.  In  addition  to  the  information 
given  in  Appendix  A,  more  information,  such  as  creating  the  menus,  implementing  the 
user  interface,  etc.,  is  given  in  Appendix  C,  where  aU  the  source  code  of  the  debugger 
are  shown. 

C.  MONITOR  PROGRAM 

This  is  a  support  program  for  the  main  debugger  which  tuns  on  the  Macintosh. 
The  monitor  program  is  EPROM  resident  and  nms  both  in  RAM  and  ROM.  While 
running,  it  occupies  lower  RAM  address  space.  The  addresses  below  1000  hexadecimal 
are  reserved  for  the  monitor  program.  The  user  program  should  not  reside  in  the 
memory  locations  which  are  reser\'ed  for  the  system.  Even  though  the  debugger  runs  on 
the  Macintosh,  the  usei  assembly  language  program  win  run  on  the  ECB.  So,  there  has 
to  be  a  way  of  reaching  its  internal  registers,  its  memory  etc.  These  are  all  ECB -related 
events.  That  is  why  the  monitor  program  was  implemented.  The  whole  code  is  written 
assembly  language.  AMien  the  ECB  is  powaed  up,  or  it  is  Reset,  the  monitor  program 
initializes  the  system  and  waits  for  a  Macintosh  command.  During  initialization  phase, 
EPROM  contents  are  copied  to  RAM,  stack  pointers  are  initialized,  and  program 
execution  is  switched  to  RAM. 

After  the  initialization  phase,  the  monitor  simply  loops  endlessly,  awaiting  a 
command  from  the  Macintosh.  To  provide  an  efficient  way  of  receiving  commands  and 
processing  them,  there  is  a  certain  protocol  established  between  the  ECB  and  the 
Macintosh  (detailed  information  about  this  protocol  is  given  in  Appendix  B)<  According 
to  this  protocol,  each  command  has  a  distinct  one-byte-long  code.  Upon  receiving  this 
code,  its  corresponding  command  (such  as  memory  write/display,  etc.)  is  executed.  If 
the  command  is  a  Go  command,  program  execution  continues  at  a  user-provided 
program  counter  value.  Fo’lowing  the  execution  of  the  user  command,  the  monitor 
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continues  to  loop,  waiting  for  the  next  conunand. 

Among  the  functions  of  the  monitor  routine  are  providing  communication  with 
the  Macintosh  and  supporting  an  Abort  option.  These  two  functions  are  briefly  pointed 
out  in  the  following  two  subsections.  Furthermore,  a  detailed  information  about  monitor 
program  is  given  in  Appendix  C. 

1.  Serial  Communication  In  Software 

This  debugger,  as  it  was  mentioned  before,  consists  of  two  separate 
programs  running  on  two  different  systems,  namely  the  Macintosh  and  the  ECB.  This 
requires  communication  between  the  two.  The  protocol  provided  is  typical  of  serial 
communication  (at  a  Baud  rate  of  96(X)).  As  far  as  the  ECB  is  concerned,  this  could  be 
done  in  hardware,  with  the  utilization  of  commercially  available  integrated  circuits.  The 
other  possible  choice  was  to  do  this  in  software  (further  information  can  be  obtained 
from  Ref.  4).  The  software  approach  was  selected,  slightly  simplifying  the  hardware. 

On  the  Macintosh  side,  a  modem  port  is  used  for  serial  communication  with  the 
ECB.  The  modem  port  is  initialized  to  a  Baud  rate  of  96(X)  by  download.c.  In  order  to 
send  or  receive  bytes,  already  available  system  calls  are  utihzed.  On  the  ECB  side,  two 
routines  are  written  to  provide  serial  communication  with  the  Macintosh.  RUART  and 
SUART  are  the  routines  which  provide  communication  outside  of  the  ECB.  RUART 
receives  the  incoming  bytes  via  the  RS232  input.  SUART,  on  the  other  hand,  transmits 
bytes  via  the  RS232  interface.  Both  routines  work  at  a  Baud  rate  of  9600.  This  Baud 
rate  is  established  by  a  clock  frequency  of  16  MHz.  When  the  frequency  is  halved,  for 
instance,  so  is  the  Baud  rate. 

When  transmitting  data  at  a  Baud  rate  of  9600,  the  bits  are  104.7  microseconds 
apart.  Starting  with  the  clock  cycles  needed  to  execute  some  of  the  instructions,  an 
estimate  of  what  instructions  to  use,  how  many  times  to  loop  in  order  to  establish 
enough  delay  for  a  Baud  rate  of  9600,  is  made.  Then,  using  the  estimated  values,  an 
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approximate  delay  was  obtained.  Later  on,  by  trial  and  error,  enough  delay  is  provided 
for  a  Baud  rate  of  9600. 

In  order  to  receive  the  incoming  bytes,  the  RS232  input  has  to  be  sampled  once 
every  104.7  microseconds.  In  this  way,  every  single  bit  can  be  sensed.  Briefly,  the 
reception  of  a  byte  is  done  as  follows:  After  detecting  the  start  bit,  eight  consecutive 
bits  are  received.  The  detection  of  two  stop  bits  follows  this.  The  eight  bits  constitute 
the  byte  to  be  received.  In  case  the  stop  bit  is  not  detected,  a  frame  error  occurs.  This 
reveals  that  an  error  is  made  during  data  transmission. 

Sending  of  a  byte  on  the  other  hand,  starts  with  the  transmission  of  the  start  bit. 
The  transmission  of  eight  bits  follows  this.  It  is  provided  that  the  duration  of  each  bit 
is  104.7  microseconds.  Finally  the  stop  bits  are  sent.  This  action  concludes  the 
transmission  of  a  single  byte. 

A  detailed  information  about  the  communication  routines  is  given  in  Appendix  D. 

2.  Implementation  of  Abort  Option 

Another  thing  to  be  noted  here  is  the  Abort  option.  An  Abort  occurs  when 
the  abort  button  on  the  ECB  is  pressed.  The  Abort  button  is  pressed  in  order  to  recover 
from  an  undesired  simation.  This  undesired  situation  can  be  an  endless  loop,  for 
example. 

Pressing  the  Reset  bunon  also  provides  a  recovery,  but  in  this  case  all  the  register 
contents  are  lost,  whereas  pressing  the  Abort  button  causes  a  special  Abort  handler 
routine  to  execute  which  uploads  all  the  current  register  contents  to  the  Macintosh.  As 
a  result,  the  user  can  see  all  the  register  contents  when  he  presses  the  Abort  button. 
More  information  about  Abort  can  be  obtained  from  Appendix  E. 
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IV.  VALIDATION  OF  THE  DEBUGGER 

As  the  modules  which  perform  the  functions  of  the  debugger  were  being 
developed,  each  was  tested  for  coaecmess.  After  providing  serial  communication 
between  the  Macintosh  and  the  ECB,  the  download,  memory  display,  and  memory 
write  functions  were  implemented  and  tested.  These  three  functions  were  then  used  in 
developing  other  functions  of  the  debugger  on  the  ECB  side.  Until  the  completion  of 
these  functions,  the  HP1650A  logic  analyser  was  the  only  tool.  After  implementing  aU 
debugger  functions,  the  overall  debugger  was  exhaustively  tested.  Five  sets  of  test 
programs  were  written,  where  each  set  tested  the  ♦cUowing  sections  of  code. 

•  Communication  between  the  Macintosh  and  the  ECB. 

•  Downloading  a  program  from  Macintosh  to  the  ECB. 

•  Displaying  and  modifying  the  ECB’s  memory/registers. 

•  Debugging  MC68020  miaoprocessor  instructions. 

•  Debugging  MC6888 1  coprocessor  instructions. 

The  instructions  in  this  programs  were  selected  such  that  they  could  test  almost 
every  possibility  of  a  bug  in  the  system  (e.g.,  loss  of  stack  space,  modifying  the 
memory  incorrectly,  etc.) 

In  the  following  two  sections  of  this  chapter  the  functionality  of  tl  debugger 
will  be  demonstrated  by  showing  the  results  of  test  programs  in  response  to  the 
execution  of  the  debugger  commands.  Three  different  test  programs  are  debugged  under 
various  levels  of  control. 
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A.  DEBUGGING  MC68020  INSTRUCTIONS 


In  this  section,  a  test  program  is  demonstrated  which  contains  various  MC68020 
instructions.  Various  levels  of  control  (such  as  tracing,  setting  a  breakpoint,  etc.)  were 
used  while  running  the  test  program.  In  addition  to  testing  these  capabilities,  some 
other  debugger  functions,  such  as  download,  memory  write,  and  memory  display  are 
tested.  For  testing  purposes,  test  program  #1  was  written  in  the  file  test.c.  'fhis  is 
shown  in  Figure  1. 


MOVE.L 

#0,D0;  [DOJ  <-  0 

MOVE.L 

#1,D1;  [Dl]  <-  1 

MOVE.L 

#2,D2;  [D2J  <-  2 

MOVE.L 

#0A0;  [AO]  <-  0 

MOVE.L 

#1A1;  [All  <•  1 

MOVE.L 

#2^2;  [A2]  <-  2 

MOVE.L 

#3,D3;  tD3]  <-  3 

MOVE.L 

#4,D4;  [D4J  <-  4 

MOVE.L 

#5^55;  [D5]  <-  5 

LI;  SUB.L 

#14?5;  (05)  <-  IID51-1] 

BNE 

LI  ; 

MOVEM.L 

D0-D2,-(SP); 

MOVEM.L 

(SP)+,D0-D2; 

ADD.L 

#2,D2;  [02]  <-  [ID2]+2] 

TRAP 

#1.5  1 

Figure  1  Test  program  #1 


This  program  is  downloaded  to  the  ECB,  starting  at  the  address  $1000  (Dollar 
sign  means  hexadecimal).  This  is  done  by  selecting  the  Download  function  in  the  main 
menu.  The  execution  of  the  memory  display  command  (displaying  the  memory 
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locations  $1000  through  $1032)  shows  the  memory  contents  just  before  downloading 
the  test  program.  In  order  to  be  able  to  execute  the  memory  display  command,  the 
user  needs  to  select  the  Memory  Display  Menu  (see  Figure  2).  In  Figure  2  the 
addresses  From  and  To  determines  the  portion  of  memory  which  is  going  to  be 
displayed. 


Fuik  iiofis 


Display  Memory 


From 

00001000 

To 

00001 032| 

(  Cancel  ] 

Size 

00000032 

[  Display  ] 

O  Disassemble 

Figure  2  Memory  Display  Menu 


As  a  result  of  the  execution  of  the  memory  display  command  the  following  was 
obtained. 


0  12  3  4  5 
00001000  FF  FF  FF  EF  FF  BF 
00001010  FF  FF  FF  BF  FF  FB 
00001020  FF  FF  EF  BF  FF  FF 
00001030  FF  FF  BF  xx  xx  xx 


^7-89ABC0EF 
FE  EF  FF  FF  FF  FB  FF  EF  EF  FB 
FF  FE  FF  EF  FF  EB  FE  FF  FF  FF 
FF  EF  FF  FF  FF  FF  FF  FF  FF  FE 

XX  XX  XX  xx  XX  XX  XX  XX  XX  xx 


*  •  * 


The  execution  of  the  download  command  modifies  the  above  memory  contents.  The 


new  memorj'  contents  are  the  user  program.  This  can  be  seen  by  executing  the 
memory  display  command. 
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0.1  2 
00001000  70  00  72 
00001010  90  01  24 
00001020  4i  00  FP 
00001030  FP  FF  BF 


3  4  3  4  7  8  9 
01  74  02  20  7C  00  00 
7C  00  00  00  02  74  03 
FC  48  E7  EO  00  4C  DF 

XX  XX  XX  XX  XX  XX  XX 


A  B  C  D  F.  F 
00  00  22  7C  00  00 
78  04  7A  OS  53  89 
00  07  94  82  4E  4F 

XX  XX  XX  XX  XX  XX 


••^1 • t •tVvXtXtSt 
•  •  • 


In  order  to  see  that  the  test  program  was  correctly  loaded  the,  memory  display 
command  was  executed  with  the  disassemble  option.  The  result  is  shown  in  Figure  3. 


00001000 

'  7000 

HOUEO.l. 

10,  DO 

00001002 

7201 

HOUEQ.L 

ll.Dl 

00001004 

7402 

HOVEQ.L 

112, D2 

00001004 

207000000000 

HOUE.L 

HO, AO 

OOOOIOOC 

227C00000001 

HOUE.L 

«1,A1 

00001012 

247C00000002 

HOVE.L’ 

N2,A2 

00001018 

7403 

H06EQ.L 

R3,D3 

OOOOIOIA 

7804 

HOUEQ.L 

N4,D4 

OOOOIOIC 

7A0S 

HtKfEQ.L 

II5,D5 

OOOOIOIE 

9389  • 

‘ SUDQ.L 

lll,D9 

00001020 

.  4400FFFC  . 

BNE.l 

400101E 

00001024 

4eE7EOOO 

MOVEM.L 

D0-D2,-<A7) 

00001028 

4CDF0007 

HtFJEM.L 

<A7>4,DO-02 

0000102C 

9482 

ADDQ.L 

02,02 

0000102E 

4E4F 

TRAP 

ms 

00001030 

FFFF 

WORD 

4FFFF 

00001032 

SFBF 

'  WORD 

4BFBF 

Figure  3  Disassembled  test  program  #1 


Then  various  levels  of  control  were  used  during  Lie  execution  of  the  test 
program.  The  first  three  commands  in  the  test  program  were  executed  with  the 
selection  of  the  Trace  All  option  in  Go  menu.  (Oo  menu  is  shown  in  Figure  4.)  With 
the  Trace  Ail  option,  the  program  execution  returns  to  the  debugger  after  the  execution 

I 

of  every  instruction.  The  debugger  displays  the  result  of  each  executed  instruction. 

Setting  the  program  counter  value  to  $1000,  selecting  the  Trace  All  option,  and 
then  clicking  go  causes  the  first  instruction  of  the  test  program  #1  to  be  executed.  The 
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result  is  shown  below. 

P000001002 

SR-8004  USP-0001F800  SSP-OOOIFCOO  I8P-0001FFFC 

DO-00000000  Dl-00000000  D2-00000000  D3-00000000 

D4-00000000  OS-00000000  D6-00000000  D7-00000000 

AO-00000000  Al-00000000  A2«00000000  A3-00000000 

A4>>00000000  AS«00000000  A^OOOOOOOO  A7«0001F800 
00001002  7201  HOMEQ.L  N1,D1 


Figure  4  Oo  menu 


Clicking  go  once  more  gives  the  following: 

P00000100<1 

SR-8000  USP«0001F800  SSP-OOOIFCOO  ISP-OOOIFFFC 

DO-OOOOOOOO  01-00000001  DZ-OOOPOOOO  03-00000000 
04-00000000  05-00000000  04-00000000  07-00000000 

AO-00000000  Al-00000000  A2-00000000  A3-00000000 
A4-00000000  A5-00000000  A4-00000000  A7-0001F800 
00001004  7402  MOVEQ.L  N2,D2 

And  finally,  clicking  go  once  again,  one  more  instruction  is  executed. 


P000001004 

SR-8000  USNOOOIFBOO  SSP-OOOIFCOO  ISP-OOOIFFFC 
00-00000000  01-00000001  02-00000002  03-00000000 

04^00000000  0>00000000  06-00000000  07-00000000 

AO-00000000  Al-00000000  A2-00000000  A>00000000 
'A4-00000000  AS-00000000  A6-00000000  A>00blF600 
00001006  207CGOOOOOOO  MC!^>E.L  MO, AO 

I 

Before  changing  the  level  of  controi,  looking  at  the  outcomes  of  the  previous 
three  steps,  it  is  seen  that  three  instructions  were  executed  correctly.  That  is,  as  a  result 
of  the  MOVE  instructions,  the  new  contents  of  the  data  registers  DO,  Dl,  and  D2  are 
zero,  one,  and  two  respectively.  The  results  of  the  instructions  could  also  be  seen  by 
selecting  the  registers  menu  (in  the  main  menu).  The  registers  menu  can  also  be 
displayed  without  going  through  the  main  menu.  The  format  of  the  information  which 
is  displayed  after  the  execution  of  the  user  program  depends  on  the  selection  of  the 
return  to  option  in  Oo  menu.  The  user  has  three  choices.  When  return  to  is  selected  as 
Oo  menu,  following  the  execution  of  user  program,  Oo  menu  is  displayed  again.  Wlien 
return  to  is  selected  as  No  menu,  no  menu  is  displayed  on  the  saeen,  instead  register 
contents  are  displayed.  (This  is  the  format  used  in  the  previous  three  steps.)  And  as  tlie 
third  choice,  return  to  can  be  selected  as  Registers  menu.  In  this  case,  following  the 
execution  of  user  program,  Regisicts  menu  is  displayed  on  the  saeen.  In  orda  to  see 
this,  the  last  trace  step  is  repeated  with  return  to  selected  as  Registers  menu.  The  result 
is  shown  in  Figure  5. 

In  orda  to  see  the  effect  of  the  Trace  Branch  option,  consider  the  following. 
With  the  Trace  Branch,  program  execution  returns  to  the  debugger  when  a  branch 
(eitha  the  unconditional  branch  BRA  or  one  of  the  conditional  branches,  such  as  BEQ, 
BNE,  etc.)  is  taken.  This  means  that  the  usa  will  be  able  the  see  the  results  when 
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Figure  5  Registers  menu 


there  is  a  change  on  the  flow  of  the  program.  In  the  test  program  #1  of  Figure  1,  there 
is  a  branch  instruction  BNE  which  executes  five  times.  The  expected  result  after  one 
execution  is  that,  when  the  registers  are  displayed  on  the  screen,  the  program  counter 
content  is  $101E,  and  data  register  D3  contains  four  (since  it  is  loaded  with  five  and  is 
decremented  by  one  before  the  branch). 


PC-OOOOIOIE 

SR«<S000  USP=0001FBOO  SSP-OOOIFCOO  ISP=000iFFFC 
DO^OOOOOOOO  Dl»00000001  D2>00000002  D3»00000003 

D4«00000004  05=>00000004  D^^OOOOOOOO  D7»00000000 
AO-00000000  Al-OOOOOOOl  A2-00000002  AS^OOOOOCOO 
A4-00000000  A5-00000000  A^OOOOOOOO  A7>0001FeOO 
OOOOIOIE  5389  SUBQ.L  «I1,D5 
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The  previous  output  was  exactly  the  same  as  expected.  Now  the  use  and  effect  of 
a  breakpoint  is  illustrated.  In  test  program  #1  of  Figure  1  there  are  two  instructions 
which  perform  a  push  onto  the  stack  and  a  pop  from  the  stack.  After  executing  these 
instructions,  the  content  of  the  stack  pointer  should  remain  unchanged.  Before 
executing,  the  trace  level  was  set  to  No  Trace  and  a  breakpoint  was  set  to  the  address 
$1028.  There  are  three  stack  pointers  in  the  MC68020.  They  are:  User  Stack  Pointer 
(USP),  Supervisor  Stack  Pointer  (SSP),  and  the  Interrupt  Stack  Pointer  (ISP).  In  Go 
menu  the  default  stack  pointer  is  the  USP  (the  active  stack  pointer  can  be  changed  to 
another  one  by  the  user).  So,  the  stack  operations  in  the  test  program  #1  will  be  in  the 
User  Stack.  The  instruction  MOVEM.L  D0*D2,-t^SP)  will  push  the  registers  DO,  Dl,  D2 
onto  the  stack.  At  the  breakpoint  the  displayed  USP  content  is  expected  to  be  12  less 
than  its  original  value  (as  a  result  of  the  pushes  onto  the  stack).  And  also  the  program 
counter  should  point  to  the  instruction  at  the  breakpoint  address.  The  following  output 
was  obtained  after  this  step.  By  examining  the  register  contents,  it  was  verified  that  the 
result  is  correct. 


P000001028 

88=0004  USP=0001F7F4  SSP=0001FC00 
00=00000000  01=00000001  02=00000002 
04=00000004  05=00000000  D^OOOOOOOO 
A0=00000000  A1=0000C001  A2=00000002 
A4=OOOOGOOO  A5=00000000  A^OOOOOOOO 
00001028  4CDF0007 


1SP=0001FFFC 
03=00000003 
07=00000000 
A3=00000000 
A7=0001F7F4 
MOVEM.L  <A7)+, 00-02 


At  this  point,  the  use  of  the  memory  display  command  (of  memory  locations 


$1F7E0  through  $1F7FF)  shows  the  new  stack  contents. 

I 


0  1  2345<789ABCDEF 
0001F7EO  FF  FF  FF  FF  FF  FF  FF  FF  FF  FF  F7  OF  FF  FF  FF  07 
0001F7FO  FF  FF  OF  FF  00  00  00  00  00  00  00  01  00  00  00  02 


The  underlined  part  of  the  previous  output  shows  that  the  contents  of  data 
registers  DO,  Dl,  D2  are  pushed  (xi  to  the  stack.  The  Itxigword  (four  bytes)  at  the 
address  $1F7F4  contains  the  content  of  DO,  the  next  longword  (at  the  address  $1F7F8) 
contains  the  content  of  Dl,  and  the  longwwd  at  the  address  $1F7FC  contains  the 
content  of  D2.  This  current  stack  content  can  be  changed  with  the  use  of  the  memory 
write  command.  In  order  to  be  able  to  execute  the  memory  write  command,  the  user 
needs  to  select  the  Memory  Write  Menu  in  the  main  menu.  This  menu  is  shown  in 
Figure  6. 


File 


1  lint  (loii^ 


UJrite  Memory 


Location 

Contents 

00001F7F4 

00001989 

OByte 

0  Increment 

OUiord 

O  No  Change 

(S>  Long 

O  Decrement 

0  Uerifg 

1  quit  1 

Figure  6  Memory  write  menu 


By  executing  the  memory  write  command  (writing  $00001989  to  the  address  $1F7F4), 
and,  following  that,  executing  a  memory  display  command,  the  ^tack  contents  become: 


01234547B9ABCDEF 
0t)01F7E0  FF  FF  FF  FF  FF  FF  FF  FF  FF  FF  F7  DF  FF  FF  FF  D7 
0U01F7F0  FF  FF  DF  FF  00  00  1?  B9  00  00  00  01  00  00  00  02 


j 
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This  last  execution  shows  the  effect  of  the  memory  write  command.  Up  to  this 
point  the  test  program  has  been  executed  either  by  tracing  or  by  setting  a  breakpoint. 
If  there  are  no  trace  or  breaiqpoints  in  the  program,  execution  returns  to  the  debugger 
>^en  the  final  instruction  (Trap  #15)  is  encountered.  In  order  to  test  this,  breakpoints 
were  removed  and  No  Trace  option  was  sdected  before  clicking  go. 

P00000102E 

SR-0000  USP-0001F800  SSP»0001FC00  ISP-OOOIFFFC 

■00*00000000  01*00000001.  02*00000004  03*00000003 
04*00000004  05*00000000  D^OOOOOOOO  07*00000000 
A0*00000000  Al*00000001  A2*00000002  A3*0000b000 

A4*00000000  AS*00000000  Ad*00000000  A7*0001F800 
0000i02E  4E4F  TRAP  015 

As  it  is  seen  in  the  last  output,  die  program  execution  is  indeed  returned  to  the 
debugger  when  the  Trap  #15  instruction  was  encountered. 

The  following  program  (test  program  #2)  is  exactly  the  same  as  the  test  program 
which  has  already  been  described  with  the  exception  of  Trap  #15  instruction  which  is 
now  replaced  by  an  RTS  instruction.  As  far  as  the  execution  of  the  user  program  is 
concerned,  there  are  two  modes  in  Go  menu.  They  are:  Goto  and  Call.  Test  program 
#1  was  executed  with  the  mode  Goto  (this  is  the  default  mode)  selected  in  Go  menu. 
Call  option  is  provided  in  order  to  test  the  subroutines.  When  Call  is  selected  as  the 
operating  mode,  after  the  execution  of  the  subroutine  the  program  counter  points  to  the 
beginning  address  of  the  subroutine  just  called  (for  more  details  see  Appendix  F).  In 
order  to  illustrate  the  use  of  mode  Call,  test  program  #2  was  written  in  the  file  test.c, 
the  debugger  was  run  and  the  program  was  downloaded  to  the  ECB.  Execution  of  a 
memory  display  command  (displaying  the  memory  locations  $1000  through  $1032) 
with  the  disassemble  option  displays  test  program  #2  and  verified  the  correcmess  of 
downloadiiig.  This  is  shown  in  Figure  7. 
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1 


00001000 

7000 

MOVEQ.L 

MO,  DO 

00001002 

7201 

MOVED. L 

M1,D1 

00001004 

7402 

MOVED. L 

M2, 02 

00001006 

207C00000000 

MOVE.L 

MO,  AO 

OOOOIOOC 

227C00000001 

MOVE.L 

M1,A1 

00001012 

247C00000002 

MOVE.L 

M2,A2 

00001018 

7603 

MOVED. L 

M3,D3 

OOOOIOIA 

7804 

MOVED. L 

M4,D4 

OOOOIOIC 

7A05 

MOVED. L 

M5,D5 

OOOOIOIE 

5385 

SUBD.L 

M1,D5 

00001020 

6600FFFC 

BNE.L 

fOOlOlE 

00001024 

48E7E000 

MOVEM.L 

D0-D2,-<A7) 

00001028 

4CDF0007 

MOVEM.L 

<A7)+,D0-D2 

0000102C 

5482 

ADDD.L 

M2,D2 

0000102E 

4E75 

RTS 

00001030 

FFFF 

WORD 

♦FFFF 

00001032 

FFBF 

UORD 

♦FFBF 

Figure  7  Disassembled  test  program  #2 


Before  clicking  go,  the  program  counter  value  is  set  to  $1000.  The  output  after 
the  execution  is  shown  below.  The  program  counter  stiU  points  to  $1000  after  the 
execution  of  the  test  subroutine. 


PC=00001000 

SR=0000 

00=00000000 

04=00000004 

A0=00000000 

A4=OOCOOOOO 

00001000 


USP=0001F800 

01=00000001 

05=00000000 

Al=00000001 

A5=00000000 

7000 


SSP=O001FC00 

02=00000004 

06=00000000 

A2=00000002 

A6=00000000 


1SP=0001FFFC 
03=00000003 
07=00000000 
A3=00000000 
A7=0001F800 
MOVED. L  MO, 00 


B.  DEBUGGING  MC68881  INSTRUCTIONS 

In  this  section  we  consider  the  verification  of  coprocessor-related  capabilities  of 
the  debugger.  For  this  purpose,  test  program  #3  was  written.  This  test  program  contains 


/ 
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two  coprocessor  instructions  and  is  shown  in  Figure  8.  Prior  to  execution  floating  point 
register  FP4  is  assumed  to  contain  a  number  X  whose  sine  and  cosine  are  to  be 
computed. 


DC.W 

$F200;  FSINCOSX.X  FP4,FP5,FP6 

DC.W 

$12B6; 

DC.W 

$F23C;  FMOVE.L  #7,FP7 

DC.W 

$4380; 

DC.W 

$0000; 

DC.W 

$0007; 

Figure  8  Test  program  #3 


This  program  was  written  in  test.c,  the  debugger  was  run,  coprocessor  option 
was  selected  in  go  menu,  and  test  program  was  downloaded  to  the  ECB.  The  result  of 
executing  the  memory  display  command  (disassembling  the  memory  contents  starting 
from  $1000  and  ending  at  $1014)  is  shown  in  Figure  9.  Since  the  current  disassembler 
is  not  able  to  disassemble  coprocessor-related  instructions,  these  unsupported 
instructions  are  displayed  in  their  hexadecimal  representation.  In  this  test,  0.785375  was 
entered  in  the  register  FP4  as  X  (0.785375  radians  corresponds  to  45  degrees). 
Following  this,  the  program  counter  value  was  set  to  $1000,  and  go  was  clicked.  The 
expected  result  is  the  sine  of  45  degrees  (which  is  nearly  0.707)  in  floating  point 
register  FP5,  the  cosine  of  45  degrees  in  FP6  (which  is  also  ’nearly  0.707),  and  of 
course  0.785375  in  FP4.  As  a  result  of  the  second  instruction,  floating  point  register 
FP7  was  supposed  to  contain  seven.  The  outcome  of  this  test  run  is  shown  in  Figure  9 
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where  the  floating  point  registers  menu  is  displayed.  As  it  is  seen  in  Figure  9  the  result 
is  exactly  the  same  as  it  was  expected. 


00001000 

F200 

UORD 

«F200 

00001002 

1266 

WORD 

♦  12B6 

00001004 

F23C 

WORD 

♦F23C 

00001006 

4380 

CHK.W 

DO, 01 

00001006 

00000007 

OR.B 

i(7,D0 

OOOOIOOC 

4E4F 

•TRAP 

ms 

OOOOIOOE 

F206 

WORD 

eF206 

00001010 

4322 

WORD 

$4322 

00001012 

4E4F 

TRAP 

HIS 

00001014 

00000002 

OR.B 

02,00 

Figure  9  Disassembled  test  program  #3 


Floatinq  Point  Reqisters 


Sign 


Mantissa 


0 

1 

2 

3 

4 

5 

6 
7 


Sign  Ehp 


♦ 

♦ 

000 

+ 

00000000000000000 

* 

000 

♦ 

OQOOOOOOOOOOQOOOO 

♦ 

000 

+ 

00000000000000000 

■f 

000 

+ 

78537500000000000 

- 

001 

♦ 

70709040200144138 

- 

001 

+ 

70712315999226049 

- 

001 

70000000000000000 

000 

Status 

IR 


00000008 


00000000 


Control 


0000 


o  N  o  2  O  1  O  NRN 


OBSUN 

OSNRN 

OOPEHR 

OOUFL 

OUNFL 

ODZ 

OINEH2 

O  inehi 


Figure  10  Floating  point  registers  menu 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  CONCLUSIONS 

The  debugger  written  under  the  topic  of  this  thesis  study  can  be  considered  as  an 
up-to-date  version  of  the  Motorola’s  debugger,  Tutor,  which  was  in  wide  use  for  a  long 
time.  This  debugger,  together  with  the  MC68020  based  ECB,  constitutes  a  very  handy 
tool  for  students  and  for  researchers.  When  compared  to  the  Motorola’s  debugger,  it  has 
some  advantages  and  some  disadvantages. 

The  advantages  are: 

•  It  can  support  MC68020  state-of-the-art  microprocessors  rather  than  MC68000.  It 
can  handle  Cc^rocessor  instructions. 

•  The  user  does  not  have  to  memorize  some  debugger  commands,  using  pull-down 
menus,  it  is  easier  to  learn  and  easier  to  use. 

•  No  dumb  terminal  is  needed  as  part  of  the  debugger.  Instead  the  Macintosh  is 
utilized  as  an  intelligent  front  end. 

The  disadvantages  are: 

•  Fewer  debugger  conunands  are  supported  compared  to  the  Motorola’s  debugger. 

•  Since  this  debugger  communicates  with  ECB  via  RS232  interface,  which  takes 
some  amount  of  time,  it  is  somewhat  slower  than  the  Motorola’s  debugger. 

B.  FUTURE  WORK 

As  was  mentioned  before,  part  of  the  debugger  resides  in  EPROM  and  runs  on 
ECB.  It  is  called  the  monitor  program.  In  monitor,  only  a  limited  number  of  exceptions 
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could  be  supported  due  to  limited  amount  of  time  for  this  thesis  study.  The  exceptions 
which  have  associated  exception  handler  routines  are:  Reset,  Privilege  Violation,  Level 
4  and  Level  6  Autovectored  Interrupts,  Trace  and  Trap  #15  (for  more  information  about 
exceptions,  sec  section  6  in  Ref.  2).  The  other  exception  vector  entries  arc  loaded  with 
the  address  of  a  short  routine  (STACKFRAME),  which  does  nothing  but  arrange  the 
"tack.  This  prevents  the  loss  of  some  stack  space  and  system  lock.  As  a  future  study, 
the  corresponding  exception  handlers  can  be  written  for  the  yet  unsupported  exceptions. 

By  selecting  Disassemble  option,  the  desired  memory  locations  can  be 
disassembled  and  displayed  on  the  screen.  But  the  disassembly  routine  handles  only 
MC680(X)  instmctions.  MC68020  instructions  are  not  supported.  They  are  displayed  in 
their  hexadecimal  form.  As  a  future  work,  with  some  additions  to  the  disassembly 
routine,  the  disassembly  of  MC68020  instructions  can  be  supported. 

As  another  improvement  to  this  debugger,  some  more  debugger  commands  can  be 
supported,  which  enable  the  user  to  Fill  a  Block  of  Memory,  Move  a  Block  of 
Memory  or  a  Search  a  Block  of  Memory. 

In  the  current  version  of  this  debugger,  the  program  to  be  downloaded  has  to 
exist  in  a  single  file,  test.c.  It  may  be  very  beneficial  if  the  user  is  given  the  option  of 
downloading  the  program  in  any  one  of  different  files.  This  could  not  be  done  because 
current  version  of  LightspeedC  did  not  allow  it. 

This  debugger  has  the  capability  of  providing  the  user  a  hardcopy  option.  But  it 
works  only  with  Imagewriter  serial  printer.  It  will  be  very  practical  if  a  variety  of 
Macintosh  compatible  printers  can  be  included  in  a  menu,  where  the  user  can  select 
which  one  to  use. 
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APPENDIX  A:  FLOWCHARTS  FOR  THE  DEBUGGER 

I  -  rLOWCUART  Fon  tIAIN  MENU 
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2-  FLOWCHART  FOR  REOISTERS  MENU 


RETURN  \ NO  MENU 
TO-7 


REO, 

V^ENU J 


DISPLAY 

REGISTERS  MENU 

I 

WAIT  FOR  USER  INPUT 


DISPOSE 

T  YES  , 

REGISTERS  MENU 

Vmenu  / 


CLEAR 

DO-D7,  A0-A6 
UPDATE  tIENU 


SET 

REGISTER  VALUE 
UPDATE  MENU 


TOGGLE 

THAT  COND.  CODE 
UPDATE  MENU 


TOGGLE  , 
PROCESSOR  STATE  r 
UPDATE  MENU 
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3-  FLOWCHART  FOR  FLOATING  POINT  REGISTERS  MENU 
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A-  FLOWCHART  FOR  MEMORY  DISPLAY  MENU 


5-  FLOWCHART  FOR  HEMORY  WRI  i  E  MENU 


6-  FLOWCHART  FOR  60  MENU 
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D 


i 


OOJiENU 
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BREAKS 


GET  BRK.  POINT  '  I 
UPDATE  MENU 


7-  FLOWCHART  FOR  OPTIONS  MENU 
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APPENDIX  B:  MACINTOSH-ECB  INTERFACE  PROTOCOLS 


EXECUTION  OF  MEMORY  DISPLAY  COMMAND 
MACINTOSH  ECB 


1“  Send  memory_display_code .  i 

1-  Main  receives  memory_display_code,  i 

and  switches  program  execution  to 
MEMORY__DISPLAY  Routine .  i 

2-  Send  the  start_address  (4  bytes) 
of  the  memory  locations  which  are 
to  be  displayed. 

2-  Receive  the  start_address  (4  bytes) 

3“  Send  byte_count  (1  byte)  which  is 
the  number_of_bytes  to  be 
displayed. 

3-  Receive  byte_count  (1  byte) . 

4-  Read  from  memory  locations, 
starting  from  start_address,  and 
send  them  to  Macintosh,  one-by-one. 
Meanwhile  calculate  the  checksum 
byte .  Checksum  is  calculated  by 
EXORing  the  outgoing  bytes . 

4-  Receive  memory  contents  (As  many 
as  byte_count  bytes) . 

5-  Send  checksum  byte. 

5-  Receive  checksum  byte . 
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EXECUTION  OF  MEMORY  WRITE  COMMAND 


MACINTOSH 


ECB 


1-  Send  meinory_modify_code . 

1-  Main  receives  memory_modify_code, 
and  switches  program  execution  to 
MEMORY_WRITE  Routine. 

2-  Send  the  operand_size  (width)  byte 
(1  byte)  . 

2-  Receive  the  operand_size  (1  byte) . 

3“  Send  the  address  of  the  memory 

location  to  be  modified  (4  bytes) . 

3“  Receive  the  address  of  the  memory 
location  to  be  modified  (4  bytes) . 

4-  Send  new  memory  contents  (1,  2  or 
4  bytes,  depending  on  the  width) . 

4-  Receive  new  memory  contents  and 

write  them  into  the  memory  location, 
starting  from  memoryjmodify  start 
address . 


5-  [If  "verify”  option  is  selected] 
Read  from  memory  locations  and  send 
them  to  the  Macintosh.  (As  many  as 
byte_count  bytes) . 


5-  [If  "verify"  option  is  selected] 
Receive  new  memory  contents. 

(As  many  as  byte_count  bytes) . 
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EXECUTION  OF  DOWNLOAD  COMMAND 


MACINTOSH 


ECB 


1-  Send  download_code . 

1“ 


2-  Send  the  download_address . 

User  program  will  be  loaded 
starting  from  this  address . 

(4  bytes) . 

2- 

3-  Send  the  number_of_bytes  to 
be  downloaded. 

(2  bytes) . 

3- 

4- -  Send  all  the  bytes  which  constitute 

the  user  progrzun. 

Meanwhile  calculate  the  checksum. 

(As  many  as  number_of_bytes 
bytes  will  be  sent) . 

4- 


5-  Send  tl  checksum  byte . 
(1  byte) . 


5- 


Main  receives  download_code,  and 
switches  program  execution  to 
DOWNLOAD  Routine. 


Receive  the  download_address . 
(4  bytes) . 


Receive  the  number_of_bytes. 
(2  bytes) . 


Receive  user  program,  byte  by  byte. 
Meanwhile  calculate  the  checksum. 
(As  many  as  nuinber_of_bytes 
bytes  will  be  received) . 


Receive  the  checksum  byte .  (The 
one  sent  by  the  Macintosh) . 

(1  byte) . 


6-  Race-*  wp  .;'580  egister  contents. 
( 96  Lj  tes)  . 

[If  "Coprocessor"  is  selected] 
Receive  MC68881  register  contents. 
(108  bytes) . 


6-  Upload  MC68020  register  contents 
to  Macintosh.  (96  bytes) . 

[If  "Coprocessor"  is  selected] 
Upload  MC68881  register  contents 
to  Macintosh.  (108  bytes). 
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EXECUTION  OF  GO  COMMAND 


MACINTOSH 


ECB 


1“  Send  go_code. 

2-  Send  Display_Steps  (1  byte) . 


1-  Main  receives  go_code,  and  switches 
program  execution  to  GO  Routine. 

2-  Receive  Display_Steps  (1  byte) . 


3-  Send  all  the  Brealc_Points,  starting 
from  Break_Point  #0.  (Four  bytes 
per  Break_Point,  in  total  20  bytes) . 

3-  Receive  Break_Point  addresses.  Four 
bytes  per  Break_Point .  (20  bytes). 

4“  Send  all  the  Break_Counts,  starting 
from  Break_Count  #0.  (Two  bytes  per 
Break_Count,  in  total  10  bytes) . 

4-  Receive  Break  Counts.  (Two  bytes  per 
Break_Count,  Tn  total  10  bytes) . 

5-  Send  MC68020  register  contents. 

D0-D7,  A0-A6,  and  Control  registers. 

(96  bytes) . 

5"  Receive  MC68020  register  contents. 
D0-D7,  A0-A6,  and  Control  registers. 

(96  bytes) . 

6-  Send  checksum  byte  (1  byte) . 

6-  Receive  checksum  byte  (1  byte) . 

7-  [If  "Coprocessor"  is  selected] 

Send  Coprocessor  register  contents . 

7-  [If  "Coprocessor"  is  selected] 
Receive  Coprocessor  register 
contents.  (108  bytes). 


8-  Start  the  execution  of  user  program. 
[When  user  progrcun  execution  stops 
due  to  a  "Trace",  "Breakpoint", 
"Trap_15",  or  "RTS".] 

Upload  the  most  updated  register 
contents . 

(96  bytes,  if  MC68881  is  not 
selected) . 

(96+118  bytes,  if  MC68881  is 
selected) . 

8“  Receive  new  register  contents . 

(96  bytes,  if  MC68881  is  not 
selected) . 

(96+118  bytes,  if  MC68881  is 
selected) . 
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APPENDIX  C:  SOURCE  CODE  OF  THE  DEBUGGER  PROGRAMS 


A.  SOURCE  CODE  OF  MAIN  PROGRAM 

1-  Souro*  ood*  of  downlomd.o 

/*  download. c  */ 


#deflne  stoplO 
♦define  stoplS 
♦define  stop20 
♦define  noParity 
♦define  oddParity 
♦define  evenParity 
♦define  data? 

♦define  dataS 
♦define  baudSOO 
♦define  baud600 
♦define  baudl200 
♦define  baudlSOO 
♦define  baud2400 
♦define  baud3600 
♦define  baud4800 
♦define  baud7200 
♦define  baud9600 
♦define  activeFlag 
♦define  changeFlag 
♦define  btnState 
♦define  cmdKey 
♦define  shiftKey 
♦define  alphaLock 
♦define  optionKey 
♦define  controlKey 
♦define  charCodeMask 


16384 

((int)  -32768) 
(-16384) 

0 

4096 

12288 

1024 

3072 

380 

189 

94 

62 

46 

30 

22 

14 

10 

0x0001 

0x0002 

0x0080 

0x0100 

0x0200 

0x0400 

0x0800 

0x1000 

OxOOOOOOFFL 


enum  (  applelD  »  1,  filelD,  optID,  widthID,  inclD  }; 

enum  {  quit Item  -  1  } ; 

enum  (  downitem  =  1,  Sbreakitem,  nulllltem,  regltem  ,  Fregitem, 

null2Item,  memitem, MemWitem, null3Item, 

Options,  Dumpitem, null4 Item, cl^ar Item,  helpitem  }; 
enum  {  documentProc,  dBoxProc,  plainDBox,  altDBoxProc,  noGrowDocProc, 
rDocProc  =  16  } ; 

enum  {  fsCurPerm,  fsRdPerm,  fsWrPerm,  fsRdWrPerm,  fsRdWrShPerm  ) ; 


43 


enum  { 
enum  ( 

enum  { 

typedef 

typedef 

typedef 


typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 


typedef 


typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 


typedef 

char 


fsAtMark,  fsFromStart,  fsFromLEOF,  fsFromMark  }; 

nullEvent/  mouseDown,  mouseUp,  keyDown,  ksyUp,  autoKey,  upciateEvt, 
diskEvt,  activateEvt  }; 

inDesk,  InMenuBar,  inSyaWindow,  inContent,  inDrag,  inGrow, 
InGoAway,  InZoomln,  InZoomOut 
unsigned  char  Str235[256]; 

struct  {  char  cumErrs,xOffSent,  rdPend,wrPend, ctsHold, 
xOffHold  ; }  SerStaRec; 

struct  {  int  menulD;  int  menuWidth,menuHelght ;  long  menuProc, 
enableFlags;  Str255  menuData;  }  Menulnfo, *  MenuPtr, 

*  ^MenuHandle ; 

char  QDByte,  *QDPtr,  **QDHandle/ 

struct  {  int  top, left, bottom, right  ;  }  Rect  ; 

struct  {  QDPtr  baseAddr;  int  rowBytes;  Rect  bounds;  }  BitMap; 

struct  {  int  rgnSize;  RectrgnBBox;  }  Region,*  RgnPtr, **  RgnHandle; 

unsigned  char  Pattern  [8]; 

struct  {  int  V, h;  }  Point  ; 

enum  {  bold  -  1,  italic  “  2,  underline  4,  outline  -  8, 
shadow  “  16,  condense  ■  32,  extend  64  }  Style; 
struct  {  QDPtrtextProc;  QDPtrlineProc;  QDPt r rect P roc; 

QDPtrrRectProc;  QDPtrovalProc; QDPtrarcProc; 

QDPtrpolyProc;  QDPtrrgnProc;  QDPtrbitsProc; 
QDPtrcommentProc;  QDPtrtxMeasProc;  QDPtrgetPicProc; 
QDPtrputPicProc;  }  QDProcs,*  QDProcsPtr; 
struct  GrafPort  { 

int  device;  BitMap  portBits;  Rect  portRect; 

RgnHandle  visRgn;  RgnHandle  clipRgn;  Pattern  bkPat; 

Pattern  fillPat;  Point  pnLoc;  Point  pnSize; 

int  pnMode;  Pattern  pnPat;  int  pnVis; 

int  txFont;  Style  txFace;  int  txMode; 

int  txSize;  long  spExtra;  long  fgColor; 

long  bkColor;  int  colrBit;  int  patStretch; 

QDHandle  picSave;  QDHandle  rgnSave;  QDHandle 
QDProcsPtr  grafProcs;  }  GrafPort,  *  GrafPtr; 
GrafPtrWindowPtr; 
char  *  Ptr  ; 
int  (*ProcPtr) ()  ; 
intOsErr,  OSErr; 

unsigned  char  *  StringPtr,**  StringHandle  ; 
char  SignedByte  ; 
struct  { 

struct  QElem  *  qLink;  int  qType, ioTrap;  Ptr  ioCmdAddr; 
ProcPtr  ioCompletion;  OsErr  ioResult;  StringPtr  ioNamePtr 
int  ioVRefNum, ioRefNum;  SignedByte  ioVersNum, ioPermssn; 
Ptr  ioMisc, ioBuffer;  long  ioReqCount , ioActCount ; 
int  ioPosMode;  long  ioPosOffset; 

}  ioParam,  lOParam  ; 

struct  EventRecord  {  int  what;  long  message, when; 

Point  where;  int  modifiers;  } EventRecord; 
c, instring [255] , inbuf [3001] ,E_bytes [20] , fregs [20] [8] ; 
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char  Que_buf  [2000]  ,  '^Head,  *Tail,  ’''EndQue,  *StartQue; 

char  DioplaySteps, ReturnTo-2,ErrorFlag-0x00, CameFmGo-0; 

char  prnstrlng [126 ] , prninbuf [3001] ^prnoutbuf [2500] , clrscn; 

char:  ManSign  [8] ,  ExpSign  [8]  ,Fbuf  [12] ,  RefScrn,OurEvent-0,Reach«l; 

Int  ByteCoui^t,  LastLocCount f  scrollslze,  LocCount ,  BreakTlmes  [5] ,  Clear; 

long  registers [24] ,fcregs[3] , Breaks [5] , from, to, at; 

SerStaRec  SerRec  ; 

WindowPtr  DisplayWindow; 

Rect  windowBounds , myRect , ClrRect ; 

RgnHandle  myRgn; 

ioParam  pbin, pbout , prnbout , prnbin; 

MenuHandle  appleMenu,  fileMenu,  optionMenu; 


extern 

extern 

extern 

extern 

extern 

pascal 

pascal 

pascal 

extern 

extern 

extern 

main  ( )  ( 

int  i, j; 


void  Error(char  *,char  *,char  *,char  *) ; 
void  Last Screen (int ) ; 
void  printhex (long, int) ; 
void  DrawChar (char) ; 

GrafPtr  thePort; 

MenuHandle  NewMenu ( ) ; 

WindowPtr  NewWindowO; 

RgnHandle  NewRgn ( ) ; 

BitMapscreenBits; 

char  *start , *and, Coprocessor, Experienced; 
int  origin; 


/*  Initialize  Macintosh  Environment  */ 


MaxApplZone  0  ; 

InitGraf (&thePort) ; 

In  it  Fonts  () ; 

FlushEvents (OxFFFF,  0) ; 
InitWindows ( ) ; 

InitMenus () ; 

TEInit  0  ; 

InitDialogs (OL) ; 
InitCursor  0 ; 

/*  Initialize  Menus  */ 


InsertMenu (appleMenu  «  NewMenu (applelD,  "\p\024"),  0)  ; 

InsertMenu (fileMenu  *  NewMenu (filelD,  "\pFile") ,  0); 

InsertMenu (opt ionMenu  »  NewMenu (opt ID,  "NpFunctions") ,  0); 

DrawMenuBar ( ) ; 

AddResMenu (appleMenu,  ' DRVR' ) ; 

AppendMenu (fileMenu,  "\pQuit/Q") ; 

AppendMenu (optionMenu,  "\pDownload/D;Go. . . /G; - ( ;Registers . . ./R;Floating 
Regs . . . /F; - ( ; Memory  Display. . , /M;MemoryWrite . . . /W; - ( ; 
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Opt  ions /O;  Previous  Screen/P;- (/Clear  Screen/C;  Help/H;  •') ; 


/*  Initialize  Screen  */ 

myRect . left-4 ;  windowBounds . left-8 ; 
myRect .top-0;  windowBounds .top-40; 

myRect. right  -  (windowBounds .right-screenBits .bounds . right-8) 
myRect .bottom  -  (windowBounds .bottom-screenBits .bounds .bottom- 

DisplayWindow  -  NewWindow (OL,  &windowBounds, 
1, noGrowDocProc,  -IL,  1,  0); 

SetPort (DisplayWindow) ; 

Move To ( 4 , myRect . bottom-4  0 ) ; 

TextFont (4)  ; 

TextSize (scrollsize-9) / 

SetRectRgn (myRgn-NewRgn ()  /  0,  0,  0,  0) ; 

/*  Initialize  Printer  Port  */ 

prnbin . ioPermssn-f sRdPerm; 

prnbin . ioNamePtr-  (StringPtr)  "\p.BIn''; 

prnbin . ioVRefMum  -  0; 

prnbin . ioVersNum-  0; 

prnbin. ioMisc  -  OL; 

prnbin . ioBuffer  -  prnstring; 

PBOpen (iprnbin, 0) / 

prnbout . ioPermssn-f sWrPerm; 

prnbout . ioNamePtr  -  (StringPtr) "Xp.BOut”; 

prnbout . ioVRefNum  -  0/ 

prnbout . ioVersNum*  0 ; 

prnbout . ioMisc  -  OL; 

PBOpen (Sprnbout, 0) ; 

prnbout . ioPosMode  -  prnbin . ioPosMode  -  fsAtMark; 

prnbout . ioPosOff set  -  prnbin. ioPosOff set  -  0; 

prnbin . ioRefNum  -  -8; 

prnbout . ioRefNum  -  -9; 

prnbout . ioBuffer  -  prnoutbuf; 

prnbout . ioReqCount  -  1; 

SerReset (-8,baud9600+noParity+3top20+data8) / 

SerReset (-9,baud9600+noParity+stopl0+data8) ; 

SerSetBuf (-8,prninbuf , 3000) ; 

/*  Initialize  Modem  Port  */ 

pbin . ioPermssn-f sRdterm; 

pbin . ioNamePtr-  (StringPtr) ”\p.AIn"; 

pbin . ioVRefNum  -  0; 

pbin . ioVersNum-  0 / 

pbin. ioMisc  =  OL; 

pbin . ioBuffer  «  instring; 

PBOpen (&pbin, 0) ; 


-8/ 

8)-4/ 

”\pDisplay", 
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pbout . ioPermssn-f sWrPerm/ 

pbout . ioNamePtr  -  (StringPtr) "Np.AOut"; 

pbout . ioVRefNum  *  0; 

pbout . ioVersNum*  0; 

pbout. ioMisc  *  OL; 

PBOpen (&pbout, 0) ; 

pbout .  ioPosMode  “  pbin .  ioPosMode  -  fsAtMarJc/ 

pbout . ioPosOff set  ■  pbin . ioPosOff set  ■  0; 

pbin . ioRefNum  -  -6; 

pbout . ioRefNum  ■  -7; 

pbout . ioBuffer  »  &c; 

pbout .  ioReqCount  ■«  1 ; 

SerReset (-6, baud9600+noParity+stop20+data8) ; 
SerReset (-7, baud9600+noParity+stop20+data8) ; 
SerSetBuf (-6, inbuf , 3000) ; 

for(i-0;i<20;i++) 

for ( j-O; j<8; j++)  fregs [i] [ j]-' 0' ; 
for ( j-0; j<8; j++)  { 

ManSignt  ; 

ExpSign [ j] +' ; 

} 

test  0  ; 

Head“Tail“&Que_buf ( 0 ] ; 

EndQue*&Que_buf [1999] ; 

*EndQue'"0x00; 

StartQue-&Que_buf [0] ; 

Dassy ( ) ; 

for  (; ; )  HandleEvent  () ; 

} 


/*  HANDLE_EVENT 0 
function : 

-  This  function  handles  the  events, 
arguments : 

-  theEvent 
called  by: 

-  HandleEvent 0 /download. c 
calls  : 

-  HandleMouseDown ( ) /download . c 

-  Stop_n_Flush() /download. c 

-  doFunctionO /menu.c 


*/ 

HandleEvent () 

{ 

EventRecord  theEvent; 
WindowPtr  theWindow; 
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int  windowCode, ok, i; 

long  1; 

if (ReturnTo=-0)  doFunction (2) ; 
if  (ReturnTo— 1)  doFunction (4)  ; 

SerStatus  (-6,&SerRec)  ; 
if (SerRec.cumErrs  ==  64  )  { 

Error  ("\pError  in  Transmission !", ''\p  Try  Again  "\p",  "\p'')  ; 
Stop_n_Flush () ;  }  /*  Discard  the  input  while  looping  outside  menu.  */ 

if ( ! Coprocessor) 

DisableItem(optionMenu,  5)  ; 
else 

EnciblcItem(optionMenu,  5)  / 

HiliteMenu(O) ; 

SystemTask  ( ) ; 

if  (ok  =  GetNextEvent  (Oxffff,  &theEvent) )  { 
switch  (theE vent .what)  { 

case  mouseDown:  HandleMouseDown (&theEvent) /break; 
case  keyDown:  case  autoKey: 

if  ( (theEvent .modifiers  &  cmdKey)  !=  0)  { 

HandleMenu (MenuKey ( (char )  (theEvent .message  &  charCodeMask) ) ) / 

) 

else 

send (C“theEvent .message  &  charCodeMask); 
break; 

case  updateEvt:  if(clrscn)  ( 

BeginUpdate(DisplayWindow)  ; 

SetPort (DisplayWindow) /  EraseRect (SmyRect) / 

EndUpdate (DisplayWindow) / 

) 

if(OurEvent)  { 

if ( ! Ref Scrn)  Clear=2 ; 

LastScreen (Clear)  ; 

OurEvent=0; 

}  break; 

case  activateEvt :  InvalRect (&DisplayWindow->portRect) ; 

break; 

} 

) 

} 


/  *  HANDLE_MOUSE_DOWN ( ) 
function ; 

-  This  function  handles  mouse  down  operations . 
arguments : 

-  theEvent 
called  by: 

-  HandleEvent ( ) /download . c 
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calls 


None 


*/ 

HandleMouseDown (theEvent )  EventRecord  *theEvent; 

WindowPtr  theWindow; 

int  windowCode  =  FindWindow  ( theEvent ->where,  StheWindow) ; 

switch  (windowCode)  { 

case  inSysWindow:  SystemClick  (theEvent,  theWindow) /  break; 
case  inMenuBar:  HandleMenu (MenuSelect (theEvent->where) ) ;  break; 
case  inGoAway:  if (theWindow==DisplayWindow&&TrackGoAway (DisplayWindow, 
theEvent->where) )  HideWindow (DisplayWindow) ;  break; 

} 

) 


I*  HANDLE_MENU ( ) 
function : 

-  This  function  handles  menu  operations . 
arguments : 

-  mSelect 
called  by: 

-  HandleEvent ( ) /download . c 

-  HandleMouseDown ( ) /download . c 
calls  : 

-  doFunct ion () /menu . c 

V 

HandleMenu  (mSelect)  long  mSelect; 

( 

int  menuID  ■»  HiWord (mSelect)  ; 
int  menultem  =  LoWord (mSelect) ; 

Str255  name; 

GrafPtr  savePort; 
long  1; 

switch  (menuID)  { 

caseapplelD:  GetPort (SsavePort ) ;  Get Item (appleMenu,  menultem,  name); 
OpenDeskAcc (name) ;  Set Port (savePort ) ;  break; 

casefilelD : 
switch  (menultem)  { 
casequititem:  ExitToShell () ; 
break; 

}  break; 

caseoptID:  doFunction  (menultem);  break; 

) 

) 
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/*  SENDO 


function : 

-  This  function  displays  a  byte  on  the  Macintosh  screen, 
arguments : 

-  a 

called  by: 

-  go () /monitor. c 

-  Download ( ) /monitor . c 

-  memdisp ( ) /monitor . c 

-  wmemO /monitor .  c 

“  DisAsm( ) /monitor . c 

-  SendRegs ( ) /monitor . c 

-  HandleEvent ( ) /download . c 
calls  ; 

-  None 


*/ 

send (a)  char  a; 
{ 

long  1/ 


c*a; 

PBWrite (&pbout, 0) ; 
Delay (1L,&1) ; 

} 


/*  SEND_PRN() 
function : 

-  This  function  sends  a  byte  to  the  serial  printer  output, 
arguments : 

-  a 

called  by: 

-  Dumpt  oP  r n ( ) /Mon i t  or . c 
calls  : 

-  None 

*/ 

sendprn(a)  char  a; 

{ 

long  1; 

prnoutbuf [ 0 ] “a ; 

PBWrite (fiprnbout, 0) ; 

Delay (IL, &1) ; 

} 
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/*  COPY_REGS() 
function; 

-  This  function  receives  and  copies  the  updated  Register 
Information  which  are  sent  by  the  ECB. 

arguments ; 

called  by: 

-  go () /monitor . c 

-  Download ( ) /monitor . c 
calls  : 

-  None 


*/ 

CopyRegs ( ) 

{ 

char  instring2[4]  ; 
int  j,m=0,k=0  ; 

vrhile  (m<24)  { 

registers [m] =  0  ; 
for  ( j=0; j<4; j++)  { 

instring2 [ j ] =instring [k] ;  k++; 

} 

for  ( j^O; j<4; j++) 

registers  [m]  =  (instring2  t  j]  &0xff )  +  (registers  [m]  «8)  ; 
m++  ; 

} 

} 


/ *  COP Y_BRK_CNTS ( ) 
function : 

-  This  function  receives  and  copies  the  updated  Break  Counts 
which  are  sent  by  the  ECB. 

arguments : 

called  by: 

-  go () /monitor . c 
calls  : 

-  None 

*/ 

CopyBrkCnts  ( ) 

( 

char  instring2 [2] ; 
int  j,m,k«=96,  TempLoc; 
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for ( j=0; j<5; j++)  { 

TempLoc“0 ; 

for  (m=0/m<2/m++)  ( 

instring2 [m]=instring[k]  ;  k++  ; 

} 

for  (in=0;m<2;m++)  TempLoc=  (instring2  [m] &Oxf  f )  +  (TempLoc«0.)  ; 
if ( (TempLoc==0) && (BreakTimes [ j] >=1) )  BreakTimes [ j]=l/ 
else 

BreakTimes [ j ’ =TempLoc; 

} 


/*  INPUT_BUFFER ( ) 
function : 

-  This  function  checks  modem  input,  and  waits  until  'hit' 
bytes  are  received. 

arguments : 

-  hit 

called  by: 

-  Download () /monitor . c 

-  go () /monitor . c 

-  memdisp ( ) /monitor . c 

-  wmemO /monitor .  c 

-  DisAsm( ) /monitor . c 
calls  : 

-  None 


*/ 

InputBuf fer (hit) 
int  hit  ; 

{ 

char  c; 
int  n ; 
long  l,m; 

for  ( ;  ; )  ( 

SerGetBuf (-6, &1) ; 
if(l>=hit)  break  / 

) 

if(l!=0)  { 

HiliteMenu (f ilelD) ; 

if  (1>255)  1=255;  pbin . ioReqCount  =  1;  PBRead (Spbin, 0) ; 

} 

} 


/*  CHECK  ERROR  0 
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function : 

-  This  function  checks  to  see  whether  an  error  occurred  or 
not,  during  data  transmission. 

arguments : 

called  by: 

-  DownLoad ( ) /monitor . c 

-  go 0 /monitor. c 

-  memdisp ( ) /monitor . c 

-  wmemO /monitor  .c 

-  SendRegs 0 /monitor . c 
calls  : 

-  Stop_n_Flush ( ) /download . c 

-  Error () /download. c 

*/ 

CheckError () 

{ 

int  n ; 

for (n=0;n<32767;n++) ; 

SerStatus  (-6, SSerRec) ; 
if  (SerRec.cumErrs  *=64)  { 

Error ("\pErr or  in  Transmission! ",  "\p  Try  Again "\p", "\p”) / 
ErrorFlag»l; 

Stop_n_Flush  0 ; 

} 

} 


/*  STOP_N_FLUSH ( ) 
function : 

-  This  function  stops  receiving  from  modem  input,  discarding  the 
previously  received  data. 

arguments : 

called  by: 

-  DownLoad ( ) / monitor . c 

-  go () /monitor. c 

-  memdisp ( ) /monitor . c 

-  dump ( ) /monitor . c 

-  doFunct ion  0 /menu. c 

-  CheckError O /download. c 

-  HandleEvent () /download. c 
calls  : 

-  None 


*/ 
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Stop_n_Flush  ( ) 

{ 

long  1; 

PBKillIO(&pbin,0) ; 
SerGetBuf (-6, &1) ; 
if(l!=0)  { 

pbin . ioReqCount 
PBRead (&pbin, 0) 
} 

} 


li. 


Sourott  ood«  of  mnu.o 


/*  Menu.c  */ 

♦define  NULL  OL 

♦define  everyEvent  OxFFFF 


typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 


typedef 


typedef 

typedef 

typedef 

typedef 


typedef 

typedef 

pascal 
enum  { 


enum  { 


int  (*ProcPtr) ()  ; 

struct  {  inttop, left, bottom, right  /  }  Rect  ; 
char  QDByte,  *QDPtr,  **UDHandle; 

struct  {  QDPtrbaseAddr;  introwBytes;  Rectbounds;  }  BitMap; 
struct  {  intrgnSize;  RectrgnBBox;  }  Region,*  RgnPtr,**  RgnHandle; 
struct  {  intv,h;  }  Point  ; 
unsigned  char  Pattern [8]; 

enum  {  bold  ■  1,  italic  •*  2,  underline  «=  4,  outline  -  8, 
shadow  -  16,  condense  =  32,  extend  *=  64  }  Style; 
struct  {  QDPtrtextProc, lineProc, rectProc, rRectProc, ovalProc, 

arcProc,polyProc, rgnProc, bitsPrcc, commentProc, txMeasProc, 
getPicProG, putPicProc; }  QDProcs,*  QDProcsPtr; 
structGrafPort  {int  device; BitMap  portBits;Rect  portRect; 

RgnHandle  visRgn, clipRgn;  Pattern  bkPat, fillPat; 
Point  pnLoc,pnSize;  int  pnMode;  Pattern  pnPat; 
int  pnVis, txFont;  Style  txFace;  int  txMode, txSize; 
long  spExtra, fgColor,bkColor;  int 
colrBit , patSt ret ch ; 

QDHandle  picSave, rgnSave, poly Save; 

QDProcsPtr  grafProcs;  }  GrafPort,  *  GrafPtr; 
GrafPtr  WindowPtr; 
char  **  Handle  ; 
unsigned  char  Str255[256]; 

struct  {  int  menulD,menuWidth,menuHeight ;  Handle  menuProc; 
long  enableFlags;  Str255menuData; 

}  Menuinfo,  *  MenuPtr,  **  MenuHandle; 

WindowPtr  DialogPtr  ; 

struct  EventRecord  {  int  what;  longmes sage, when;  Pointwhere; 

int  modifiers;  }  EventRecord; 

DialogPtr  GetNewDialogO  ; 

downitem  =  1,  Sbreakitem,  nulllltem,  regitem  , 

Fregitem,  null2Item,  memitem, MemWitem, nullSItem, 

Options,  Dumpitem, null4Item, clearltem,  helpitem  }; 
applelD  “  1,  filelD,  optID,  widthID,  incID  }; 


extern  char  ManSign [8] ,ExpSign [8] , Fbuf [12] , CurEvent ,  DisAsmOutBuf [ 81 ] ; 
extern  long  StaDisAdr,EndDisAdr; 

extern  intBreakTimes [ 5 ] ,  Clear ; 

extern  long  registers [24] , Breaks [5] , fcregs [3] , from, to, at; 

extern  char  fregs [20] [8] , clrscn, instring [255] , DisplaySteps ; 

extern  char  ReturnTo, CameFmGo, Que_buf [2000] , *Head, *Tail, *EndQue, RefScrn; 
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extern 

WindowPtr  DisplayWindow; 

extern 

Rect  windowBoundj , myRect , ClrRect ; 

extern 

SerRec 

/ 

char 

verify. 

WillGoTo-1, DisAsseroble, PrintBuf [2500] , Experienced-O; 

char 

GoToReg 

, Coprocessor , Not Af terGo=0, Brk  Flag, Hardcopy=0 ; 

char 

t[]=  "PC=.SR»=.USP=.SSP-.ISP='.DO=‘.  Dl=.  D2=.  D3-.D4=.  D5>=. 

long 

D6=.  D7 
value  , 

-.A0».  Al=.  A2-.  A3«.A4=.  A5=.  A6=.  A7-."; 
temp value  ; 

DialogPtr 

extern 

dp; 

void 

print (char  *) ; 

extern 

void 

DownLoad (int) ; 

extern 

void 

dump  (void)  ; 

extern 

void 

Last Screen (int) ; 

extern 

void 

FillQue(int)  ; 

extern 

void 

DisAsm ( ) ; 

extern 

void 

Stop_n_Flush  () ; 

extern 

void 

wmemory (int, int) ; 

extern 

void 

go (void) ; 

extern 

void 

DumptoPrn (int ) ; 

extern 

void 

Dumpt oScreen ( int , char  * ) ; 

extern 

void 

help (void) ; 

extern 

void 

ltoa(  long  ,  char  *,  int); 

extern 

void 

itoa(  int  ,  char  *) ; 

extern 

long 

atol(char  *); 

extern 

long 

atoi(char  *); 

extern 

void 

printhex (long, int) ; 

extern 

void 

prnthex2 (long, int , int ) ; 

extern 

void 

CheckHex ( int , int ) ; 

extern 

void 

CheckDec ( int , int , int ) ; 

extern 

void 

Error (char  *,ch£r  *,char  *,char  *); 

/*  DO_FUNCTIONO 
function  : 

-  This  function  provides  user  interface  tc  the  debugger. 

Selection  of  a  particular  menu,  such  as  registers  menu  or  Go 
menu,  etc.,  display  of  that  menu,  and  the  user's  manipulation 

of  the  fields  in  that  memi,  the  update  of  that  menu,  etc.,  these 
are  all  provided  by  DO_FUNCTION () . 
arguments : 

-  theltem 
called  by: 

-  HandleEvent ( ) /download . c 

-  HandleMenu () //download. c 
calls  : 

-  DownLoad ( ) /monitor . c 
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-  dump ( ) /monitor . c 

~  FillQue 0 /monitor .c 

-  CheckHex ( ) /menu . c 

-  CheckDec ( ) /menu . c 

-  printhex2 ( ) /Monitor . c 

-  Stop_n_Flush ( ) /download . c 

-  Error 0 /menu. c 

-  Itoa 0 /monitor . c 

-  atolO /monitor,  c 

-  itoa () /monitor. c 

-  atoi () /monitor . c 

-  help 0 /monitor. c 

-  wmem() /monitor. c 

-  DisAsmO /monitor. c 

“  DumptoPrn (i) /monitor . c 

-  LastScreen () /monitor. c 


*/ 

doFunction  (theltem)  int  theltem; 

{ 

char  number [21] ,  s [21] ; 

static  char  width=l, step=l ; 

int  i, j, type, change, first, k,mad; 

long  1 ; 

Handle  itemh ; 

cntRecord  myEvent ; 

Rect  textbox; 

clrsci  1/ 
switch (theltem)  { 
case  downitem: 

DownLoad(O);  break; 
case  D’-mpItem: 

LastScreen (1) ;  break; 
case  regitem: 

dp>»GetNewDiaaog(129,NULL, -IL)  ; 

SetPort (dp) ;change=l; 
for (i-0; i<24; i++)  { 

if  (i«l9)  Itoa  (registers  [i] ,  number,  4)  ; 
else  if  (i—23)  Itoa  (registers  [i] ,  number,  2)  ; 
else  Itoa (registers [i] , number, 8) ; 

GetDItem(dp, i+2, &type, &itemh, &textbox) ;  Set IText (itemh, number) ; 
} 

SellText (dp. 2, 0, 32000) ; 
do{ 

SystemTask  0 ; 

GetNext Event ( ever yE vent, &myEvent) ; 
if (change)  ( 

GetDItom (dp, 45, &type, Sitemh, Stextbox) ; 

SetCtlValue (itemh, registers [19] &0x010) ; 
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GetDItem(dp, 46, &type, &itemh, fitextbox) / 

SetCtlValue (itemh, registers [19] &8) ; 

GetDItem(dp, 47, &type, Sitemh, &textbox) ; 

SetCtlValue (itemh, registers [19] &4)  ; 

GetDltem(dp, 48,  Stype, fiitemh, &textbox)  ; 

SetCtlValue (itemh, registers [19] &2) ; 

GetDltem(dp, 49, &type, &itemh, &textbox) ; 

SetCtlValue (itemh, registers [19] &1) ; 

GetDItem(dp, 50, itype, & itemh, &textbox)  ; 

if  (  ( (registers  [19] 40x3000)— 0x2000)  &&  (Experienced) ) 

SetCTitle (itemh, "\pSupervisor”) ; 
else 

if  ( ( (registers  [19]  40x3000)  —0x3000)  44  (Experienced) ) 

SetCTitle (itemh, “Nplnterrupt") ; 
else 

SetCTitle (itemh, "\pUser”) ; 

GetDltem(dp, 51, 4type, 4itemh, 4textbox) ; 

1«  (registers  [19]  »8)  47; 

Itoa ( (long) i, number, 1) ; 

SetCTitle (itemh, number) ; 

} 

if  (change— 1)  { 

Itoa (registers [19] , number, 4) ; 

GetDItem(dp, 21, 4type, 4itemh, 4textbox) ;  Set IText (itemh, number) / 

} 

ModalDialog (NULL, 4theltem) ; 

if (theltem— 53)  {  /*  If  ClearAll  then  Clear  Registers  D0-A6  */ 

Itoa  (OL, number, 8) ; 
for  (i“0;  i<**14;  i++)  ( 

GetDItem(dp, i+2, 4type, 4itemh, 4textbox) ; 

SetIText (itemh, number) ; 

) 

) 

if  ( (theltem<26)  44  (theltem>l) )  CheclcHex  (theltem,  8)  ; 

charge=0; 

if  (theltem— 21)  { 

GetDItem(dp, 21, 4type, 4itemh, 4textbox) ;  Get IText (itemh, number) ; 

registers [19] =atol (number) ; 

if  (  (  (registers  [19]  40x00000f00)  »8)  >"4)  ( 

Error  ("\plnterrupt  level  >*4  ",''\pwill  crash  the  system", 

"\p", "\p") ; 

registers [19]- ( (registers [19] 40  LffOff) 10x00000300); 

Itoa  (registers  [19] ,  number,  ‘i) ; 

GetDItem(dp, 21, 4type, 4itemh, 4textbox) ; 

Set IText (itemh, number) ; 

} 

change=2 ; 

if  (  ( SExperienced)  44  (  (registers  [19]  »12)  !  =0)  )  { 

registers [19] -registers [19] 40xcff f ; 
change-1; 
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} 


} 

if  (theltem— 45)  {  registers  [19]  •  registers  [19]  0x10/  change-1;} 

if  (theltem— 4  6)  [registers  [19]  -  registers  [19]  8;  change-1;} 

if  (theItem--47)  [registers  [19]  -  registers  [19]  4/  change-1;  } 

if  (theltem— 48)  [registers  [19]  -  registers  [19]  2;  change-1/} 

if  (theltem— 4  9)  [registers  f  19]  -  registers  [19]  1;  chance-1;} 

if  (theltem— 50)  [ 
if (Experienced) [ 

i-(registers[19]»12)  &0x07;  i-(i+l)%4;  i-i«12; 
registers [19]  -  (registers [19]  &  0xcfff)|i; 

} 

else  registers [19]  -  (registers [19]  &  Oxcfff ) / 
change-1; 

} 

if  (theltem— 51)  [ 

i«  (registers  [19]  »8)  &7; 
i»(i+l) &7; 

i-  (i«G)  &0x0700;  j-registers  [19]  &Oxf  Sff  ; 
registers [19]  -  j|i; 

if  (  (  (registers  [19]  &OxOOOOOfOO)  »8)  >-4)  [ 

Error  ("\plnterrupt  level  >-4  ",''\pwill  crash  the  system", 

"\p", "\p") / 

registers [19] = (registers [19] iOxfffff Off ) | 0x00000300; 

} 

change-1 / 

} 

)  while  ( (theltem  !=  1) &C..  (theltem  !-  54)); 
for (i— 0; i<24/ i++)  [ 

G8tDltem(dp,  i+2, &type, &itemh, Stextbox)  /  GetIText ( it emh, number) / 
registers [i] =atol (number) / 

} 

if  (  (theltem— 54) && (CameFmGo) )  [ 

ReturnTo-1; 
go  ( )  ; 

} 

else 

if (CameFmGo)  ReturnTo-0; 
else  ReturnTo-2/ 

DisposDialog (dp) ; 

SetPort (DisplayWindow) ; 

Clear=0  /  OurEvent-1; 
break; 

case  Fregitem: 

dp-GetNewDialog (133, NULL, -IL) ; 

SetPort (dp) / 

SellText (dp, 2, 0,32000) ;  change-1; 
for (i-0/i<8; i++)  [ 

■number [0]=17; 

for ( j-0;  j<17;  j++)  number [ j+1] -fregs [ j ] [i] ; 
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GetDItem(dp,  2*  (1+i) ,  &type,  Sitemb./  stextbox)  /  SetIText  (itemh,  number) ; 
number  1 0 ) -3 ; 

for  ( j-0,-  j<3;  j++)  number  [j+lj-fregs  [  j+17]  [i] ; 

GetDItem(clp,  2*  (1+i) +1,  Sttype,  filtemh,  Sitextbox) ;  SetIText  (itemh,  number)  / 
number [0]-l;  number [1] -Mans ignti] ; 

G<e.cDItem(dp,  2*  (17+i) ,  &type,  fiitemh,  fitextbox) ;  SetIText  (itemh,  number) ; 
number [0]-l;  number [l]-ExpSignti] ; 

GetDItem(dp, 2* (17+i) +1, &type, &itemh, &textbox) ;  SetIText (itemh, number) ; 

) 

for (i-0;i<3/i++) { 

Itoa  (fcregs  [i] ,  number,  8)  ,' 

GetDItem(dp, i+18, &type, & itemh, &textbox) ;  SetIText (itemh, number) ; 

} 

do{ 

SystemTas)c  ( ) ; 

GetNextEvent (everyEvent, fimyEvent) ; 
if (change)  { 

GetDItem(dp, 52, &type, &itemh, &textbox) / 

SetCtlValue  (itemh,  ( (fcregs  [0]  »1)  &0x00004000) ) ; 

GetDItem(dp, 53, &type, Aitemh, Stextbox) / 

SetCtlValue (itemh, fcregs [0] &0x004000)  ; 

GetDItem(dp, 54, &type, &itemh, &textbox) ; 

SetCtlValue (itemh, fcregs [0] i0x002000) ; 

GetDitem(dp, 55, &type, &itemh, &textbox) / 

SetCtlValue (itemh, fcregs [0] &0x001000) ; 

GetDItem(dp, 56, &type, &itemh, &textbox) / 

SetCtlValue (itemh, fcregs [0] 40x000800) ; 

GetDItem(dp,  57,  4type,  4itemh,  4textbox)  ,• 

SetCtlValue (itemh, fcregs (0] 40x000400)  ; 

GetDItem(dp, 58, 4type, 4itemh, 4textbox) ; 

SetCtlValue (itemh, fcregs [0} 40x000200) / 

GetDItem(dp, 59, 4type, 4itemh, 4textbox) / 

SetCtlValue (itemh, fcregs [0] 40x000100)  ; 

GetDItem(dp, 60, 4type, 4itemh, 4textbox) ; 

SetCtlValue  (itemh,  (fcregs  [1]»24)  40x08)  ; 

GetDItem(dp, 61, 4type, 4itemh, 4textbox) ; 

SetCtlValue  (itemh,  (fcregs  [1]»24)  40x04)  ; 

GetDItem(dp, 62, 4type, 4itemh, 4textbox) ; 

SetCtlValue  (itemh,  (fcregs  [1]»24)  40x02)  ; 

GetDItem(dp, 63, 4type, 4itemh, 4textbox) / 

SetCtlValue  (itemh,  (fcregs  [1]»24)  40x01)  ; 

} 

if  (change—l)  { 

Itoa (fcregs [0] , number, 4) ; 

GetDItero(dp, 18, 4type, 4itemh, 4textbox) ;  SetIText (itemh, number) / 

Itoa (fcregs [1] , number, 8) ; 

GetDItem(dp, 19, 4type, 4itemh, 4textbox) ;  SetIText (itemh, number) ; 

Itoa (fcregs [2] , number, 8) ; 

GetDItem(dp, 20, 4type, 4itemh, 4textbox) ;  SetIText (itemh, number) ; 

} 
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ModalDlalog (NULL, &theltem) ; 

if  ( ( (theltein<3.7) && (theltem>l) ) && ( (theltem  %  2)— 0))  CheckHex (theltem,  17) ; 

if  (  (  (theltem<18)  &&  (theltem>2)  )  &  &  (  (  (theIten  +  1)  %2) --0)  ) 
CheckHex (theltem, 3) / 

if ( (theltem<50) && (theltem>33) )  CheckDec (theltem, 1,1); 

change-0; 

if  (theltem— 18)  { 

GetDItem(dp, 18, &type, &itemh, fitextbox) ;  GetIText (itemh, number) ; 
fcregs tO] -atol (number) ;  change-2; 

} 

if  (theltem— 19)  { 


GetDItem(dp, 19, &type, &ltemh, &textbox) ;  GetIText (itemh, number) ; 
fcregs [1] -atol (number) ;  change-2; 

} 


if  (theltem— 53) 

( 

fcregs [0] 

- 

fcregs [0] 

A 

0x004000; 

change-1; 

) 

if  (theltem— 54) 

( 

fcregs [0] 

- 

fcregs [0] 

A 

0x002000; 

change-1; 

) 

if  (theltem— 55) 

{ 

fcregs [0] 

- 

fcregs [0] 

A 

0x001000; 

change-1 ; 

} 

if  (theltem— 56) 

{ 

fcregs [0] 

fcregs [0] 

A 

0x000800; 

change-1 ; 

) 

if  (theltem— 57) 

( 

fcregs [0] 

- 

fcregs [0] 

A 

0x000400; 

change-1 ; 

) 

if  (theltem— 58) 

{ 

fcregs [0] 

fcregs [0] 

A 

0x000200; 

change-1 ; 

) 

if  (theltem— 52) 

{ 

fcregs [0] 

- 

fcregs [0] 

A 

0x008000; 

change-1 ; 

) 

if  (theltem— 59) 

{ 

fcregs [0] 

- 

fcregs [0] 

A 

0x000100; 

change-1; 

} 

if  (theltem— 60) 

{ 

fcregs [1] 

- 

fcregs [1] 

A 

0x08000000; 

change-1 ; 

} 

if  (theltem— 61) 

{ 

fcregs [1] 

- 

fcregs  [1] 

A 

0x04000000; 

change-1 ; 

} 

if  (theltem— 62) 

{ 

fcregs [1] 

sa 

fcregs [1] 

A 

0x02000000; 

change-1 ; 

) 

if  (theltem— 63) 

{ 

fcregs [1] 

» 

fcregs [1] 

A 

0x01000000; 

change-1; 

} 

)  while (theltem  !-  1); 
for (i-0; i<8; i++)  { 

GetDItem  (dp,  2*  (1+i) ,  &type,  &iteinh,  &textbox)  ;  GetIText  (itemh,  number) ; 
for ( j-0; j<17; j++)  fregs ( j ] [i] -number [ j+1] ; 

GetDItem  (dp,  2*  (1+i)  +1,  &type,  &itemh,  &textbox)  ;  GetIText  (itemh,  nuihber) ; 
for( j-0; j<3; j++)  fregst j+17] [i] -number [ j+1) ; 

) 

for (i-0;i<3;i++)  { 

GetDItem (dp, i+18, Stype, &itemh,  stextbox) ;  GetIText (itemh, number) ; 
fcregs [i]-atol (number) ; 

) 

for (i-0;i<16;i+-2) { 

GetDItem (dp, 34+i,&type,&itemh,&textbox) ;  GetIText (itemh, number) ; 
ManSign [ i/2 ] -number [ 1 ] ; 

GetDItem (dp, 34+i+l, itype, Citemh, &textbox) ;  GetIText (itemh, number) ; 
ExpSign [i/2] -number [1] ; 

) 

DisposDialog (dp) ;  SetPort (DisplayWindow) ; 

Clear-0;  OurEvent-1; 
break; 

case  memitem: 
first-1; 

dp-GetNewDialog(130,NULL, -IL) ;  SetPort (dp) ;change=0; 
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It oa (from, number,  8) ; 

GetDItem(cip,2,&type,&itemh,&textbox) ;  SetIText  (itemh, number)  / 

Itoa (to, number,  8)  ; 

GetDItem(dp, 3, &type, sitemh, &textbox) ;  SetIText (itemb, number) ; 

Itoa (to-f rom, number, 8) ; 

GetDItem(cip,  4, &type, &itemh,  &textbox)  ;  SetIText  (itemh,  number)  ; 
GetDItem(dp,  9,  stype,  &itemh,  &te:.;tbox) ;  SetCtlValue  (itemh,  DisAssemble)  / 
SellText (dp, 2, 0, 32000) ; 
do{ 

if (change=*l) { 

Itoa (to-f rom, number,  8) ; 

GetDItem^dp,  4,  Sttype, &itemh,  itextbox)  /  SetIText  (itemh,  number)  / 

} 

if (change^=2)  { 

Itoa (to, number, 8) ; 

GetDItem (dp, 3, &type, &itemh, Stextbox) ;  SetIText (itemh, number) ; 

) 

SystemTask ( ) / 

GetNext Event (everyEvent, &myEvent) ; 

ModalDialog (NULL, Stheltem) ; 

change=0; 

if  (theltem— 2)  { 

GetDItem(dp,  2,  sti^pe, &itemh,  Stcxtbox)  /  Get IText  (itemh,  number)  ; 
from=atol (number) ;change=l; 

} 

if (theltem*=3)  { 

GetDItem (dp, 3, & type, & itemh, & textbox ) ;  GetIText (itemh, number) ; 
to=atol (number) ;change=l; 

} 

if (theltem==4)  { 

GetDItem(dp, 4, &type, Sitemh, &textbox) ;  GetIText (itemh, number) / 
tO“atol (number) +from; change=2/ 

} 

if ( (f irst&&DisAssemble;  I  I  (theltem=™9) )  { 

(SatDItem  (dp,  9,  &type,  &  itemh,  stextbox)  / 

SetCtJ  Value  (itemh,  DisAssemble®  (theltem==>9)  ?  iDisAssemble  :DisAssemble)  / 
} 

f irst®0; 

}  while ( (theltem  !=  l)&&(theltem  !=  8) )  ; 

DisposDialog (dp) /  SetPort (DisplayWindow) ; 
clrscn=0; 

if ( (to-from>®500) && (theltem==l) && ( ! DisAssemble) )  { 

to®from+500; 

Error  (''\pCannot  dump  more  than  ","\p  500  bytes  at  a 

time. ", "\p", "\p") ; 

) 

if ( (to<from) && (theltem==l) )  ( 

itoa (from, s, 8) ; Itoa (to, number, 8) / 

Error ("\pCannot  dump  range  ",s,"\p  to  ", number); 

} 
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else  if  (theltem— 1)  { 

If (DisAssemble)  { 

StaDisAdr=from;  EndDisAdr-to; 

NotAfterGo-1;  DisAsmO; 

} 

else  { 

Not AfterGo-0 ;  dump ( ) ; 

} 

} 

if (RefScrn)  LastScreen (0) ; 

Clear=0;  OurEvent*0; 
break; 

case  MemWitem: 

dp=®GetNewDialog  (132, NULL,  -IL)  ;  SetPort  (dp)  ;change®0; 

It oa ( at , number ,  8 ) ; 

GetDItem(dp, 2, &type, Sitemh, itextbox) /  SetIText (itemh, number) ; 

Itoa (value, number, width*2 ) ; 

GetDItem(dp,  3, &type, &itemh,  fitextbox)  /  SetIText  (itemh,  number)  ,* 

first*»l;  theItem-0;  SellText  (dp,  2, 0,  32000) ; 

do( 

SystemTask ()  ; 

Get Next Event (everyEvent, imyEvent) ; 
if  (  (first&&width-“l)  |  |  (theltem— 6) )  { 

GetDItem(dp, 6, &type, &itemh, Stextbox) ;  SetCt lvalue (itemh, 1) ; 
GetDItem(dp,  7,  &type,  &itemh,  itextbox) ;  SetCtlValue  (iten»h,  0) ; 
GetDItem(dp,  8, &type,  Sitemh,  &textbox)  /  SetCtlValue  (it emii,  0) ;  width-1 
} 

if  ( (f irst&&width==2)  |  I  (theltem— 7) )  { 

GetDItem (dp, 6, &type, &itemh, itextbox) /  SetCtlValue (itemh, 0) ; 
GetDItem(dp,  7, &type, &itemh,  fitextbox) ;  SetCtlValue  (iteirh,  1) ; 
GetDItem(dp, 8, &type, &itemh, fitextbox) /  SetCt lvalue (itemh, 0) ; width-2 
} 

if  (  (f  irst&&width-=4 )  |  |  (theltem— 8) )  { 

GetDItem(dp, 6, Stype, &itemh, Stextbox) ;  SetCtlValue (itemh, 0) ; 
GetDItem (dp, 7, fitype, Sitemh, Stextbox) ;  SetCtlValue (itemh, 0) / 
GetDItem(dp, 8, Stype, &itemh, &textbox) ;  SetCtlValue (itemh, 1) ; width-4 
} 

if  (  (f  irsts&step— 1)  |  |  (theltem— 9) )  { 

GetDItem(dp, 9, stype, &itemh, fitextbox) ;  SetCtlValue (itemh, 1) ; 
GetDItem(dp, 10, &type, &itemh, stextbox) ;  SetCtlValue (itemh, 0) ; 
GetDItem(dp, 11, stype, &itemh, stextbox) ;  SetCtlValue (itemh, 0) ; step-1; 
} 

if  ( (first&&step— 0)  |  |  (theltem— 10) )  { 

GetDItem(dp, 9, &type,  &itemh, &textbox) ;  SetCtlValue (itemh, 0) ; 
GetDItem(dp, 10, &type, Sitemh, &textbox) ;  SetCtlValue (itemh, 1) ; 
GetDItem(dp, 11, &type, &itemh, Stextbox) ;  SetCtlValue (itemh, 0) ; step-0; 
} 

if(  (first&Sstep— 1)  I  I  (theltem— 11) )  { 

GetDItem(dp,  9,  Stype,  Sitemh,  Stextbox)  ;  SetCt  lValue  (it emii,  0)  ; 
GetDItem(dp, 10, &type, &itemh, Stextbox) ;  SetCtlValue (itemh, 0) ; 
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GetDIteni(dp,  11,  &type,  Sitemh,  stextbox)  ;  SetCtlValue  (Iteinh,  1) ;  step““l; 

} 

if  ( (firsts&verify)  1  |  (theltem— 12) )  { 

GetDIt3m(dp, 12, &type, &itemh, &textbox) ; 

SetCtlValue  (iteinh,  verify- (theltem— 12)  ?  Iverify:  verify); 

} 

first-0; 

ModalDialog  (NULL,  fittheltem)  ; 
if  (theltem— 3)  change-1; 

if  ( (theltem— 2)  &&  change)  { 

GetDItem(dp,  3, itype, &itemh, &textbox) ;  Get I Text (it emh, number) ; 
value-atol (number) ; 

GetDItem(dp, 2, &type, fiitemh, &textbox) ;  GetIText (itemh, number) ; 
at=atol (number) ; 
wmemory (step, width) ; 

Itoa (at , number, 8) ; 

GetDItem(dp, 2, &type, &itemh, atextbox) ; 

SetIText (itemh, number) ;  SellText (dp, 3, 0, 80) ; 

Itoa  (value,  nuittoer,  width*2)  ; 

GetDItem(dp,  3,  &type,  &itemh,  &textbox) ; 

SetIText  ^temh, number) ;  SellText (dp, 3,  0, 80) ; 

} 

}  while (theltem  !=  1);  . 

GetDItem(dp,  2, &type,  Sitemh,  fitextbox) ;  GetIText  (itemli,  number)  ; 
at=atol (number) ; 

DisposDialog (dp) ;  SetPort (DisplayWindow) ; 

Clear»0;  OurEvent-1; 
break; 

case  Sbreakltem: 

dp-GetNewDialog (131, NULL, -IL) ;  SetPort (dp) ; 
change-0;  Brk_Flag=0x00; 
for (i-0; i<5; i++) { 

Itoa (Breaks [i] , number, 8) ; 

GetDItem(dp,  i+2,  stype, Sitemh, &textbox) ;  SetIText (itemh, number) ; 
itoa (BreakTimes [i] , number) ; 

GetDItem(dp,  i+14, &type, &itemh,  itextbox) ;  SetIText  (itemli,  number) ; 

} 

Itoa (registers [18] , number, 8) ; 

SellText (dp, 10,  0,  32000) ; 

GetDItem(dp, 10, &type, & itemh, itextbox) ;  SetIText (itemh, number) ; 

f irst=change=l ; theltem=0 ; 

do{ 

SystemTask ( ) ; 

GetNextEvent (everyEvent , &myEvent) ; 
if  (  (first&&WillGoTo— 1)  |  I  (theltem— 8)  )  ( 

GetDItem(dp, 8,  &type, Sitewh, Stextbox) ;  SetCtlValue (itemh, WillGoTo-1) ; 
GetDItem(dp, 9, &type, &itemh, &textbox) ;  SetCtlValue (itemh, 0) ; 

} 

if  ( (first&&WillGoTo— 0)  |  1  (theltem— 9) )  ( 

GetDItem(dp, 8, &  type, & itemh, Stextbox) ;  SetCtlValue (itemh, WillGoTo=0) ; 
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GetDItem(dp,  9, &type,  Sitemh,  &textbox>  ;  SetCtlValue  (iteirih,  1)  ; 

) 

for  (i*=0;  i<5;  i++)  { 

GetDItem(dp,  i+2, &type,  sitemh,  &textbox) ;  GetIText  ( it enih,  number )  ; 

tempvalue«atol (number) ; 

if  ( (Breaks [i] ) =*tempvalue)  { 

GetDItem (dp, i+14, &type, &itemh, fitextbox) ;  GetIText (itemh, number) / 
BreakTimes ii]=atoi (number) ; 

) 

else  ( 

Breaks [ i ] =tempvalue / 
if (Breaks [i] ! =0x00)  ( 

BreakTimes [ i] =1 ; 

itoa (BreakTimes [i] , number) ; 

GetDItem(dp, i+14, &type, sitemh, itextbox) ;  Set IText (itemh, number)  ; 

} 

} 

if (Breaks [i] ==0x00)  { 

BreakTimes  [  i  ]  =0  ,• 

itoa (BreakTimes [ i ] , number) ; 

GetDItem (dp, i+14, &type, Sitemh, &textbox) ;  Set IText (itemh, number) ; 

} 

if (change) ( 

GetDItem(dp,  13,  &type,  &itemh, fitextbox) ; 

if ( (registers [19] &0xc000) ==0x8000)  SetCTitle (itemh, "\pTrace  All”) / 
else 

if ( (registers [19] fiOxcOOO) ==0x4000)  SetCTitle (itemh, "\pTrace  Branch”) ; 
else  SetCTitle (itemh, ”\pNo  Trace"); 
for (i=0; i<5;i++)  { 

Itoa  (Breaks [i] , number, 8) / 

GetDItem (dp, i+2, Stype, iitemh, &textbox) /  Set IText (itemh, number) / 
itoa (BreakTimes [i] , number) ; 

GetDItem(dp, i+14, &type, &itemh, fitextbox) ;  SetIText (itemh, number) ; 

} 

GetDItem (dp, 19, &type, Sitemh, fitextbox) ;  SetCtlValue (itemh, DisplaySteps) ; 

GetDItem(dp, 21, stype, & itemh, Stextbox) ; 

if ( (ReturnTo==l) | | ( (ReturnTo==0) && (GoToReg) ) )  ( 

SetCTitle (itemh, "\pRegister  Menu")  ; 

ReturnTo=l;  GoToReg=0; 

} 

else  if  (ReturnTo==0)  SetCTitle  (itemli,  "\pGo  Menu”)/ 
else  SetCTitle (itemh, ”\pNo  Menu") ; 
change- 0; 

} 

ModalDialog (NULL,  Stheltem) ; 

if  ( (  (thelteir>=2) && (theltem<=6) )  I  <  (tbeltem— 10) )  CheckFex  (theltem,  8) ; 
if  ( (theltem>=14 )  &&  (theltem<=18) )  Check.Dec  (theltem,  4,  9)  ; 
if (theltem==7 ) { 
for (i=0/i<5;i++) { 

Itoa (Breaks [i] =0, number, 8) / 
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GetDItem((Jp,  i+2,  &type,  &itemh,  &textbox)  ;  SetIText  (itemh,  number) ; 
itoa (BreakTimes [i]-0, number) ; 

GetDItem(dp,i+14,&type,&itemh,&textbox) ;  SetIText (itemh, number) ; 

) 

change- 1; 

) 

if (theltem==19)  ( 

DisplaySteps-  !  DisplaySteps; 
change- 1; 

} 

if  (theltem— 21)  {  ReturnTo-(ReturnTo+l)  %  3;  change-1;  ) 

if  (theltem— 13)  { 

registers  [19]  =  (registers  [19]  &0x3fff )  I  ( ( ( (registers  [19]  »14)  +1)  %3)  «14) ; 
change=l;  first-0; 

) 

)  while ( (theltem  !-  1)&& (theltem  !-  11)); 
for (i-0; i<5; i++) { 

GetDItem(dp, i+2, Stype, &itemh,&textbox) ;  Get IText (it emh, number) ; 

Breaks  [i]=atol  (n\amber)  ; 

GetDItem(dp, i+14, &type, sitemh, &textbox) ;  GetIText (itemh, number) ; 
BreakTimes [i]-atoi (number) ; 

} 

GetDItem(dp,  10,  Sttype, &itemh,  £textbox) ;  G(  u IText  (itemh,  number)  ; 
registers [18] -atol (number) ; 
if  (theltem— 1)  { 

if  (ReturnTo— 1 )  CameFmGo-GoToReg-1 ; 
else  if  (ReturnTo— 0)  GoToReg-0; 
else  CameFmGo-GoToReg-0; 
if (registers [18] <0x1000)  ( 

Error  ("Nplllegal  Go  Address  ''\p  Must  be  over  $1000 .  "\p",  "\p'') ; 

registers [18] -0x00;  Brk_Flag=l; 

} 

for (i=0; i<5; i++) 

if ( (Breaks [i] <  0x1000) && (BreakTimes [i] !-0) )  { 

Itoa ((long) (i+l),s,2);  Brk_Flag-l; 

Error  ("\plllegal  Breakpoint  #'',s,"\p  Must  be  over  $1000 .  "\p") ; 

Breaks [i] -0x0000;  BreakTimes [i] —0; 

} 

) 

if  (  (theltem-'^l)  &&  ( !3rk_Flag  ))  go(); 
if  (theltem— 11)  { 

ReturnTo-2; 

CameFmGo-GoToReg-O ; 

} 

DisposDialog (dp) ;  SetPort (DlsplayWindow) ;  clrscn-O; 
if  (  (theltem— l)&&(!Brk_Flag  ))  { 
if ( (ReturnTo! =0) && (ReturnTo !=1) )  { 

for (i=0, j-0; j<99; i++)  { 
if(t[j]— '.')  { 

for (k*0;k<9;k++)  {  PrintBuf [i] ';i++;} 
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if  ((j— 3)  I  I  (j— 22)  I  I  (j— 41)  I  I  (j— 60)  I  I  (j— 79)  |  |  (j— 98))  { 
PrintBuf [i] -OxOd;  i++;  PrintBuf ti]"OxOa;i++; 

} 

} 

else  {  PrintBuf [i] -t [j] ;  i++;  }  , 

} 

prnthex2 (registers [18] , 8,  3) ; 
prnthex2 (registers [19] , 4, 17) ; 
prnthex2 (registers [15] ,  8,  30)  ; 
prnthex2 (registers [16] , 8, 43) / 
prnthex2 (registers [17] , 8/ 56) ; 
for (i-70, j“0; i<281; i4-13, j++)  { 

if  ((i— 122)  I  I  (i— 175)  |  |  (i— 228))  i+-l; 
prnt hex2 ( registers [ j ] , 8 , i ) ; 

} 

StaDisAdr=EndDisAcir=registers  [18] ; 
if (IRefScrn)  DumptoScreen (i, &PrintBuf [0] ) ; 

Stop_n_Flush ( ) ; 

DisAsmO  ; 

prnthex2 (StaDisAdr, 8,  i) ;  i+“8; 

PrintBuf [i] =0x20;  i++; 

for ( j=i, k=l;k<81; k++, j++)  PrintBuf [j ] “DisAsmOutBuf [k] /  i=j; 

PrintBuf [i] =0x0d; i++;  PrintBuf [i] =0x0a;  i++; 

PrintBuf [i] =0x0d; i++;  PrintBuf [i]=0x0a; 

FillQua (i-1)  ; 

if  (Hardcopy==l)  DumptoPrn (i) / 

} 

} 

if (ReturnTo!=2)  Clear=2; 
else  Clear=0; 

OurEvent-1; 

Stop_n_Flush ( ) ; 
break; 

case  clearltem: 

EraseRect (SmyRect) ;  Clear=2;  break; 
case  helpitem: 

EraseRect (SmyRect) ;  clrscn=0; 
helpO;  break; 
case  Options; 

dp-GetNewDialog (135, NULL, -IL) ;  SetPort (dp) ; 

GetDItem(dp, 5, & type, &itemh, fitextbox) ;  SetCtlValue (itemh, Experienced) ; 
GetDItem(dp, 4, & type, Sit emh, i textbox) ;  SetCtlValue (itemh.  Ref Scrn) ; 
GetDItem (dp, 3, &type, Sitemh, &textbox) ;  SetCtlValue (itemh, Hardcopy) ; 
GetDItem(dp, 2, &type, &itemh, Stextbox) ;  SetCtlValue (itemh, Coprocessor) ; 
first-1;  the Item-0; 
do( 

SystemTask ( )  ; 

Get Next Event (everyEvent , SmyEvent) ; 

if ( (first&SExperienced) | | (theItem-=5) )  { 

GetDItem (dp, 5, stype, Sitemh, &textbox) ; 
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SetCtlValue  (itemh,Experienceci“(theItem— 5)  ?  ! Experienced: Experienced) 
} 

if ( (first&&RefScrn) | | (theItem--4) )  { 

GetDItem(dp, A, &type, fiitemh, fitextbox) ; 

SetCtlValue  (itemh, Ref Scrn=  (theltem«4)  ?  IRefScrn:  RefScrn)  / 

} 

if ( (f irst&&Hardcopy) | I (theltem==3) )  { 

GetDItem(dp, 3, &type, &itemh, Stextbox) ; 

SetCtlValue (itemh, Hardcopy*  (theltem**3)  ?  IHardcopy:  Hardcopy); 

) 

if ( (f irst&&Coprocessor) | | (theltem==2) )  { 

GetDItem(dp, 2, &type, Sitemh, itextbox) / 

SetCtlValue (itemh, Coprocessor* (theltem*=2) ?  (Coprocessor : Coprocessor) 
) 

first*0; 

ModalDialog (NULL, stheltem) ; 

}  while (theltem  1=  1); 

DisposDialog (dp) ;  SetPort (DisplayWindow) ; 

Clear*0;  OurEvent=l; 

} 

return (1) ; 

} 


/*  CHECK_HEX() 
function  : 

-  This  function  checks  to  see  if  its  argument  is  a  valid 
hexadecimal  number  or  not .  If  the  number  is  not  valid, 
an  error  message  is  displayed,  and  that  entry  is  cleared. 

arguments : 

-  theltem, n 
called  by: 

-  doFunct ion ( ) /menu . c 
t  alls  : 

“  Error  0 /menu . c 

-  Itoa 0 /monitor ,c 

*/ 

void  CheckHex (theltem, n)  int  theltem,  n;{ 

char  number [21]; 
int  i,j,type; 

Handle  itemh; 

Rect  textbox; 

GetDItem (dp, theltom, &type, &itemh, &textbox) ;  Get IText (itemh, number) ; 
if (number [0] >n)  { 

Error (  "\pToo  Many  Digits  in:  ",  number, "\p", "\p") ; 

Itoa (OL, number, n) ; 

GetDItera (dp, theltem, &type, &itemh, Stextbox) ;  SetIText (itemh, number) ; 
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} 

for  (i“l,  j-0;  i<nuinber  [0] ;  i++) 

j|-((m  'iber[i]<'0')  |  |  ( (number  [i]  >' S' )&& (number  [i] <' A' ) ) 

I  I ( (number [i] (number [i]<' a')) | | (number [i] >' f' )) / 
if(j)  { 

Error (  "\plllegal  Hexadecimal  Character  in;  ",  number, "\p", "\p") ; 
Itoa (OL, number, n) ; 

GetDItem (dp, theltem, &type, iitemh, itextbox) ;  SetIText (itemh, number) 
} 

) 


/*  CHECK_DEC() 
function  : 

-  This  function  checks  to  see  if  its  argument  is  a  valid 
Decimal  number  or  not.  If  the  number  is  not  valid,  an 
error  message  is  displayed,  and  that  entry  is  cleared. 

arguments : 

-  theltem,  n,  n2 
called  by: 

-  doFunct ion  0 /menu .c 
calls  ; 

-  Error  0 /menu . c 

-  Itoa 0 /monitor . c 


*/ 

void  CheckDec  (theltem, n,n2)  int  theltem, n,n2; { 

char  number [21]; 
int  i,j,type; 

Handle  itemh; 

Rect  textbox; 

GetDItem  (dp, theltem, &type,&itemh,&textbox) ;  Get IText (itemh, number) ; 
if  (number [0] >n)  { 

Error (  "\pToo  Many  Digits  in:  ",  number, "\p", "\p") ; 

Itoa (OL, number, n) ; 

GetDItem (dp, theltem, stype,  &itemh, Stextbox) ;  SetIText (itemh, number) 

} 

for  (i-1,  j-0;  i<number  [0] ;  i++)  j  |-(  (niunber  [i] <'  0' )  |  |  (number  [i]  >' n2' ) )  ; 
if(j)  { 

Error(  "\plllegal  Decimal  Character  in:  ",  number, "\p", "\p") ; 

Itoa (OL, number, n) ; 

GetDItem (dp, theltem, &type, &itemh, Stextbox) ;  SetIText (itemh, number) 

) 

} 


/*  ERROR  0 
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function  : 

-  This  function  displays  an  Error  Message  on  the  screen. 

The  displayed  message  is  a  Pascal  string,  which  is  passed 
as  a  parameter. 

arguments: 

-  s,  f,  1,  z 
called  by: 

-  doFunct ion () /menu .c 

-  CheckDec ( ) /menu . c 

-  CheckHex ( ) /menu . c 

-  go 0 /Monitor. c 

-  wmemO /Monitor. c 

-  CopyFloat ( ) /Monitor . c 

-  memdisp ( ) /Monitor . c 

~  HandleEvent ( ) /download . c 
“  CheckError 0 /download. c 
calls  : 

-  None 


*/ 

void  Error (  s,  f  ,1  ,z)  char  *s,  *f,  *1,  *z;  { 

ParamText(s,  f,  1,  z)  ; 

Alert (256,  OL  )  ; 

} 
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111.  Source  ooda  of  monitor. o 


/*  Monitor. c  *! 

t:/pedef  struct  (  int  v,h;  }  Point  ; 

typedef  struct  {  int  top, left, bottom, right  ;  }  Rect  ; 

typedef  struct  {  int  rgnSize;  RectrgnBBox;  }  Region,*  RgnPtr, **  RgnHandle; 

extern  char  *start, *end, *Head, *Tail, *EndQue, *StartQue/ 

extern  char  fregs [20] [8] , clrscn, verify,DisplaySteps, ReturnTo; 

extern  char  c, instring[255] , inbuf [3001] ,E_bytes [20] , fregs [20] [8]; 

extern  char  Hardcopy, Coprocessor, NillGoTo, Ref Scrn, Reach, clrscn; 

extern  char  ErrorFl£g,NotAfterGo,PrintBuf [2500] , DisAssemble; 

extern  char  ManSign [8] ,ExpSign [8] ,Fbuf [12] ,Que_buf [2000] ; 

extern  int  origin, BreakTimes [5] ; 

extern  long  registers [24] , Breaks [5] , fcregs [3] , from, to, at, value/ 
extern  void  send (char)/ 
extern  void  sendprn (char) / 

extern  void  Error(char  *,char  *,char  *,char  *) / 

extern  void  InputBuffer () / 

extern  void  CheckError () / 

extern  void  CopyRegs ( ) / 

extern  void  CopyBrkCnts ( ) / 

extern  void  Stop_n_Flush () / 

extern  Rect  windowBounds,myRect,ClrRect/ 

extern  int  ByteCount,  JjastLocCount,  scrollsize,LocCount/ 

extern  RgnHandle  myRgn/ 

char  tbuf(]-  "  0123456789ABCDEF" 

char  DisAsmOutBuf [81] ,  AbortEvent=0, Abort Count-O/ 

int  z, line_count,numof chars; 

long  StaDisAdr, EndDisAdr, *HISPC, *SubrAdr/ 


/*  DUMPO 

function: 

-  This  function  performs  the  'Memory  Display'  operation. 

The  two  global  variables  (fr,  m,  to)  are  set  by  the  user. 
Size-  to-from,  bytos  of  mcn.-.>.:y  are  displayed,  starting  from 
the  address  ' from' . 

Also,  user  has  the  'Disassemble'  option.  In  this  case,  the 
memory  contents  are  first  disassembled,  and  then  displayed 
on  the  screen, 
arguments: 

called  by: 

“  doFunctionO /menu.c 
calls  : 

-  Stop_n_Flush ( ) /downlead . c 
D/.aw  x() /monitor. c 
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memdisp  ()  /monitor  .c 
prnthex3 ( ) /monitor . c 
FillQue ( ) /monitor . c 
DumptoScreen ( ) /monitor . c 
DumptoPrn ( ) /monitor . c 


*/ 

dump  0 
{ 

char  DisBuf[16]; 

int  i, inbytes, disl, size, residual-O, inex; 
long  from2,baseadr; 

Stop_n__Flush  0  ; 
line~count->0  ; 

for (z-O; z<56; z++)  PrintBuf [z] «tbuf [z] ; 

PrintBuf [z] =0x0d; 

PrintBuf tz+l}“0x0a;  z+-2; 
size“( (int)  (to-from) ) +1, 
numof chars-s ize  ; 
from2-from; 
if (size  >  16)  { 

if ( (from2&0x0000000f ) !“0)  { 

inbytes=^16-  (int)  (from2&0x0000000f ) ; 
baseadr=‘from2&0xf f fff ff 0  / 

} 

else  i 
inbytes-16,’ 
baceadr-f rom2 ; 

) 

prnthex3 (f rom2&0x0f f f f ff f OL,  8,  z) ; 
for  (i>=0,  disl=0;  i<  (16-inbytes)  ;disl++,  i++)  { 
Draw_x(z) ; 

DisBuf [disl ] ; 

) 

memdisp ( f rom2 , inbytes ) ; 

for (i”0; i<inbytes; i++, disl++)  { 

if ( (instring[i] >=0x20) && (instring [i] <-0x7e) ) 
DisBuf [disl]-instring[i] ; 
else 

DisBuf [disl] =' . ' ; 

} 

PrintBuf tz]='  ' ;  z++; 

for (i=0; i<16; i++, z4+)  PrintBuf [z]=DisBuf [i] ; 
PrintBuf [z]»0x0d; 

PrintBuf [z+l]=0x0a;  z+=2; 
numofchars-=inbytes  ; 
baseadr+“16; 

if  ( (line_count==22) && (numofchars>=16) )  { 

line  count<=0; 
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fox (inex«2; inex<z+56; inex++)  PrintBuf tinex]"tbu£ [inex-z] ; 
PrintBuf [inex] -OxOd; 

PrintBuf [inex+1 ] «0x0a; 
inox+-2,'  z»inex; 

} 

while  (nuinofchars>16)  { 

prnthex3 (baseadr, 8, z) ; 

memdisp (baseadr, inbytes-16) ; 

for (disl-0/disl<inbytes;disl++)  { 

if ( (instring [dial] >-0x20) && (instring [disl] <-0x7e) ) 

DisBuf [disl] — instringtdisl] ; 
else 

DisBuf [disl] ' ; 

} 

PrintBuf [z] »'  z++/ 

for  (i-0;i<16;  i++..  z++)  PrintBuf  [zl-DisBuf  [i]  / 

PrintBuf [z] -OxOd; 

PrintBuf [z+1] -OxOa;  2+-2; 
numof chars-^inbytes  / 

Laseadr+-16; 

if  ( (line_ccunt— 22)  &&  (nuinofohars>— 16) )  { 

line_count=0 ; 

PrintBuf [z] -OxOd;  PrintBuf [z+1] -OxOa;  z+-2; 

for  (inex-z;inex<z+56?.ine:c++)  PrintBuf  [inex] -tbuf  [inex-z] ; 

PrintBuf [ inex] -OxOd; 

PrintBuf '  ine;<+l  ]  -OxOa ; 
inex+-2;  z-inex; 

} 

} 

i-  rnthex3  (baseadr,  0,  z)  ; 
memdisp (baseadr, inbytes-numof chars) ; 
for (i-0; i< (16-inbytes) ; i++)  Draw_x(z) ; 
for  (i“0;  Kinbytes;  i++)  { 

if ( (inatring [i] >-0x20) && (rnstring [i] <-0x7e) ) 

DisBuf [i] -instring [i] ; 
else 

DisBuf  [i]«'  ; 

) 

PrintBuf [z]-'  z++; 

for (i-U; i<inbytes; i++, z++)  PrintBuf [z]-DisBuf [i] ; 

PrintBuf  [z]»-0x0d; 

PrintBuf [2+1] =0x0a;  z+-2/ 

} 

else  { 

pmtl.-ex3  (fr'itnP&OxOf f if  ff f OL,  8,  z) ; 
if  ( (fromP^CA-OCOOOOOf)  !-0) 

.'or  (i-0, disl-0; i< ( (int )  (from2&0x0000000f ) )  ;disi++,  i++)  { 

I  raw_x(z)  ; 
residual++; 

DisBuf  [d.lsl]-'  . '  ; 
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} 

else  dlsl*0; 

if (size<" t 16-residual) )  ( 
memdisp (from2, size) ; 
for (i-0; i<size;disl++, i++)  { 

if ( (instring[i] >-0x20) && (instring [i]<-0x7e) ) 

DisBuf [dial] -instring ti] ; 
else 

DisBuf tdisl]-' ; 

) 

for (i-O; i< (16- (size+reaidual) ) ;i++)  Draw_x(z) ; 

PrintBuf [z]-'  ' ;  z++; 

for (i-O; i< (residual+size) ;i++, z++)  PrintBuf [z] -DisBuf [i] ; 
PrintBuf [z] -OxOd;  PrintBuf (z+1] -OxOa;  z+-2; 

) 

else  { 

memdisp (from2, (16-resldual) ) ; 

for (i-0; i< (16-residual) ;disl++,  i++)  { 

if ( (instring [i] >"0x20) (instring [i] <-0x7e) ) 

DisBuf [disl]-inatring [i] ; 
else 

DisBuf [dial]-' . ' ; 

} 

PrintBuf [z]-'  z++; 

for  (i-O; i<16; i++, z++)  PrintBuf (z) -DisBuf [i] ; 

PrintBuf (z]-0x0d;  PrintBuf [z+1] -OxOa;  z+-2; 
baseadr-from2-residuam6; 
prnthex3 (baseadr,  8  /  z) ; 
memdisp (baseadr, (size- (16-residual) ) ) ; 
for  (i-O;  i<  (16-  (size-16+residual) )  /  i++)  Draw__x  (z)  ; 
for (i-O, disl-0; i< (16- (3ize-16+residual) ) ;di3l++, i++)  { 
if ( (in3tring[i] >-0x20) && (instring [i] <-0x7e) ) 

DisBuf [disl]-instring(i] ; 
else 

DisBuf [disl]-" ; 

} 

PrintBuf [z]-'  z++; 

for (i-Oi 1< (size- (16-re3idual) ) ; i++, z++)  PrintBuf [z]-DisBuf [i] ; 
PrintBuf [z]-0x0d;  PrintBuf [z+1] -OxOa;  z+-2; 

) 

} 

PrintBuf [z] -OxCd;  PrintBuf [ z+1] -OxOa; 

PrintBuf [z+2]-Cx0d;  PrintBuf [z+3] -OxOa;  z+»3; 

FillQue(z-l) ; 

if ( IRefScrn)  DumptoScreen (z, &PrintBuf [0] ) ; 
if (Hardcopy)  DumptoPrn (z) ; 

AbortEvent-0;  Abort Count-0; 
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/*  MEM_DISP() 
function : 

-  This  function  helps  'dumpO'  in  performing  the  'Memory  Display' 
operation . 

Maximum  sixteen  bytes  can  be  handled  by  this  function, 
arguments : 

-  staradr,  bytecount 
called  by: 

-  dump ( ) /monitor . c 
calls  : 

-  send ( ) /download . c 
Stop_n_Fluah ( ) /download . c 
Error ( ) /download . c 
CheckError ( ) /download . c 


*/ 

memdisp (staradr, bytecount) 
int  bytecount  ; 
long  staradr; 

( 

char  c,md__code“0x04  ; 
int  i,chks'um; 
long  1; 

send (md_code) ; 
for(i-0;i<-400;i++) ; 

for  (i-24;  i>'-0;  i—S)  send (c- (char)  (staradr»i) )  / 

SerGetBuf (-6,41) ; 
if(l>0)  { 

numof chars-1 5 ; 

AbortEvent-1 ; 

) 

send  (c-(char)  ( (bytecount)  »0) )  ; 

CheckError  ( ) ; 
if ( lErrorFlag)  ( 

InputBuffer (bytecount+1) ; 

for (i-0; i<bytecount; i++)  prnthex3 ( ( (long) (instring [i ) ) ) , 2, z) ; 
for (i-O; i<bytecount ; i++)  (  /*  calculate  checksum  */ 

if(i*=0)  chksum  ■  (instring [i]  &  Oxff)  &  Oxff  ; 
if(i>0  )  chksum*'- (instring  [i]  &  Oxff)  &  Oxff  ; 

} 

if  ( (chksum! -( (instring [i]  &  Oxff)  &  Oxff ) ) && ( ! AbortEvent ) ) 
Error ("\pChecksum  error .Restart", "\p", "\p", "\p") ; 
if  ( (AbortEvent)  &&  (AbortCount— 0) )  { 

Error ("\pBoard  Aborted. "\p", "\p", "\p") ; 

Abort Count ++; 

) 

) 
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ErrorFlag=OxOO ; 
line_''Oi’nt++; 
Stop_n_B  j-ush  0  ; 

) 


/*  W_MEMORY() 
function : 

-  This  function  performs  the  'Memory  Modify'  operation.  'Verify' 
option  is  also  available  to  the  user.  In  this  case,  a  write  is 
done  to,  and  following  this,  a  read  from  that  memory  location 
is  perfomed.  Then,  the  two  are  compared. 

argumeitts : 

-  step,  width 
called  by: 

-  doFunct ion  0 /menu .c 
calls  : 

-  send 0 /download. c 
Error ( ) /download . c 
CheckError ( ) /download . c 
InputBufferO /download,  c 


*/ 

wir.emory  ( st  ep ,  width ) 
int  step, width  ; 

{ 

char  c,  mm_code=0>:05  ; 
int  i,j; 

send (nmi_ code)  ; 

for (i=0/ i<=400; i++) ;  /*  for  Timing  adjustment  */ 

if  (!  verify)  send (c=  (char)  (width»0) )  ;  /*  send  size  of  the  operand*/ 
if  (verify  )  send  (c=  (char)  (  (width  |  0x0080)  »0)  )  ; 
for  ^=24 ;  i>=0;  i-=8)  send  ( c=  (char)  (at»i)  )  ; 
switch  (width)  { 

case  4  :  for  (i=24/i>-0;  i-=8)  send  (c=  (char)  (value»i) )  ; 
if (verify)  { 

InputBuffer  (4) ; 

if  (  (instring  [0]  !=  (c=  (char)  vvalue»24)  ) )  |  I 
(instring  [1  ]!  =  (c- (char)  (valv.e»16) )  )  |  | 

(instring  [2  ]!  =  (  c=  (char)  (value»8  )))  li 
(instring  [3]  !*=  (c=  (char)  (value»0  )))  )  { 

Error (" \pVerify  Failed, Try  Again", "\p", "\p"/ "\p") ; 

at-=si:ep*  width; 

1 

J 

}  break; 

case  2  :  for  ;i-=8;  i>=0;  i-=8)  send '.c=  (char)  (value>>i)); 
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if (verify)  { 

InputBuffer (2) } 

if  ( (instring[0]  !->  (c-(char)  (value»8) )  )  I  I 
(instring[l)  !-(c-(char)  (value»0) ) )  )  { 

Error ("\pVerify  Failed, Try  Again", "\p", "\p", "\p") ; 
at-”Step*widtli; 

} 

}  break; 

case  1  :  send  (c=  (char)  (value»0) )  ; 
if (verify) ( 

InputBuffer  (1) ; 

if  (instring[0]  !  =  (c-(char)  (value»0) ) )  { 

Error ("\pVerify  Failed, Try  Again", "\p", "\p", "\p") / 
at“=step*width; 

}  /*  If  Verify  fails,  do  not  increment /decrement  the  address  */ 
} break; 
default  :  break; 

} 

at+“Step*width; 

CheckError () ; 

ErrorFlag=0x00 ; 

} 


/*  GOO 

function ; 

-  This  function  performs  the  'Go'  operation.  Program  Counter, 
Trace  Mode  etc.,  are  set  by  the  user  in  Go  Menu. 

arguments : 

called  by: 

-  doFunction ( ) /menu . c 
calls  : 

-  send ( ) /download . c 
Stop_n_Flush ( ) /download , c 
sendregs ( ) /monitor . c 
SendFloat ( ) /monitor . c 
CheckError ( ) /download . c 
InputBuffer () /download. c 
CopyRegs ( ) / download . c 
CopyBrkCnts () /download. c 
Itoa ( ) /monitor . c 

Error ( ) /download . c 
CopyFloat  0 /monitor.c 

*/ 

go  0  ( 

char  c, s [21 ] , go_code=0x02 ; 
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int  i,j; 

long  Save_PC,  long_locl='0,  long_loc2"0; 


Stop_n_Flush () ; 
if (IWlllGoTo)  { 
go_code“0x03 ; 

Save_PC-registers [18] ;  /*  In  case  of  Call  */ 

} 

send  (go_cocle) ; 
for  (i“0;  i<>=400;  i++) ; 
send(DlsplaySteps) ; 

/*  Send  Breakpoints  */ 

for (i—0; i<5; i++)  { 

if  (BreakTimes  [i]  ==0)  for  ( j=»0;  j<4;  j++)  send  (0x00)  ; 

if  (BreakTimes  [i]==l)  for  ( j=24;  j>'=0;  j~=8)  send(C“  (char)  (Breaks  [i]  »j) ) ; 
if  (BreakTimes  [i]  >1)  for  ( j-'24;  j>=0;  j-=8)  send(c=  (char)  (Breaks  [i]  »j) )  ; 

} 

/*  Send  BreakCounts  */ 


for (i=0; i<5; i++)  { 

if  (BreakTimes [ i ] >1 ) 

for  ( j»8;  j>=0;  j-=8)  send  (c=  (char)  (BreakTimes  [i]  »j)  )  ; 
else  ( 

send (0x00)  ; 
send (0x00)  / 

} 


) 


/* 

/* 

/* 


Send 

Send 

Send 


Register  info.  */ 
68020  Registers  */ 
68881  Registers  */ 


sendregs ( ) ; 

if (Coprocessor)  SendFloat ()  ; 

CheckError ( )  / 
if ( lErrorFlag)  { 

if (Coprocessor)  InputBuffer (107+12+96) 
else 

InputBuffer (107) ; 

CopyRegs ( ) ; 

CopyBrkCnts ( ) ; 
if (instring[106]==0x55)  ( 

Itoa  (registers [18] , s, 8) / 

Error  ( "\pPrivilege  violation  "f”\p  At  address  ”,s,"\p  ") 
) 


/*  Copy  68020  Registers  */ 


if ( IWillGoTo)  registers [18]=Save_PC; 

if (Coprocessor)  CopyFloat (107) ;  /*  Copy  68881  Registers  */ 

} 

ErrorFlag=0x00 ; 

Stop_n_Flush  0  ; 

) 


/*  HELPO 
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function: 

-  This  function  displays  help  information  on  the  screen, 
argument  s : 


called 

calls 


by 

-  doFunction ( ) /menu . c 


-  print () /monitor . c 


*/ 

helpO  { 
print ("\pl- 
print ("\p 
print ("\p 
print ("\p2- 
print  ("\p 
print  ("\p 
print  (''\p3“ 
print  <"\p 
print ("\p 
print ("\p4- 
print  ( ''\p 
print ("\p5- 
print  ("\p 
print ("\p 
print  (''\p 
print ("\p6- 
print  ("\p 
} 


If  you  want  to  use  Coprocessor  instructions,  youXn") ; 
need  to  select  Coprocessor  option.  This  can  be  doneXn”) ; 
in  Options  Menu.\n"); 

If  you  want  to  have  a  printout  of  what  you  see,\n''); 
you  need  to  select  Hardcopy  option.  This  can  be  done\n") 
in  Options  Menu.\n'')/ 

If  you  can  not  select  Supervisor  State  to  work  in,\n"); 
you  need  to  select  Experienced  option.  This  can  be  done\n") ; 
in  Options  Menu.\n''); 

User  is  not  allowed  to  set  the  Interrupt  Level,  to\n") / 
a  value  greater  than  3.\n"); 

If  you  suspect  that  your  program,  running  on  the\n'')  / 

ECB,  seems  to  be  in  an  endless  loop,  or  out  of  control, Xn”) ; 
press  Abort  Button  on  the  ECB.  in  this  case,  you  will\n") ; 
see  the  current  register  contents . \n" ) / 

If  the  solution  in  statement  5  above,  won't  work,\n**); 
press  Reset  Button  on  the  ECB.  Also  Reset  Macintosh. \n") ; 


E 


/*  LTOAO 

function : 

-  This  function  converts  from  long  integer  to  Ascii, 
arguments : 

“  l,s,len 
called  by: 

-  doFunction () /menu .c 

-  CheckHex ( ) /menu . c 

-  CheckDec ( ) /menu . c 

-  go () /Monitor . c 

-  printhexO  /Monitor. c 

-  printhex2 0 /Monitor . c 

-  printhex3 () /Monitor .c 

-  Copy^loat  0 /Monitor . c 
calls  : 

-  None 


*/ 
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Itoa (1, s, len) 
char  s[2l]/ 
long  1; 
int  len; 

{ 

int  i; 

for (i®s [0] =len; i>0; i--) { 

sti]  =  (l&0x0f)+'0'  ;if  (s[i]>'9')  s[i]+=7 
1=1»4/ 

} 

) 


ITOAO 
function : 

-  This  function  converts  from 
arguments : 

-  n,  s 

called  by: 

-  doFunct ion ( ) /menu . c 
calls  ; 

-•  None 

*/ 

itoa  (n, s) 
char  s [ ] ; 
int  n; 

{ 

int  i=l,c,k,l; 
s[0]=4/ 

for (i=4; i>=l; i — )  { 

if  (  (n%10)==0)  s[i]='0'; 
else 

s [i]=n  %  10  +  ' 0' ; 
n/=10; 

} 

} 

/*  ATOK) 

function ; 

-  This  function  converts  from 
arguments : 

-  s 

called  by: 

-  doFunct ion ( ) /menu . c 
calls  : 

-  None 


integer  to  Ascii. 


Ascii  to  integer. 


80 


*/ 

int  atoi(s) 
char  s [ ] ; 

{ 

lint  i,n; 
n«=0; 

for <i=l; i<=s [0] ; i++)  n=  10  *  n  +  s[i]  -  'O'; 
return (n) ; 

) 

/*  ATOLO 

function : 

-  This  function  converts  from  Ascii  to  long  integer, 
arguments : 

-  s 

called  by: 

-  doFunct ion ( ) /menu . c 
calls  : 

-  None 

*/ 

long  atol(s) 
char  st21]; 

{ 

int  i; 
long  1; 

1=0; 

for (i=l; i<=s [0] ; i++)  { 

if(s[i]>'9')  s[i]-=7; 

1=(  (s  [i]-'  0' )  &0x0f)  +  (l«4)  ; 

} 

return (1) ; 

} 


/*  DOWNLOAD  0 
function ; 

-  This  function  performs  the  'Download'  operation.  First  the 
user  program  is  downloaded  to  Educational  Computer  Board. 

Then,  the  current  register  values,  Coprocessor  register  values 
(if  Coprocessor  option  is  used),  are  received  from  the  ECB , 

arguments : 

called  by: 

-  doFunct ion () /menu . c 
calls  : 
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-  send ( ) /download . c 

Stop_n_Plush ( ) /download . c 
CheckError ( ) /download . c 
CopyRegs ( ) /download . c 
CopyFloat  0 /monitor .c 
InputBuf f er ( ) /download . c 


*/ 

DownLoad ( ) 

{ 

char  *p,bite, down_code“0x00; 
int  chksum, 1; 
long  1; 

Stop_n_Flush ( ) ; 

if (Coprocessor)  down_code»0x08;  /*  If  Coprocessor  is  to  be  used  */ 

send(down_code) ; 

for (i“0/ i<“400/ i++) ;  /*  for  Timing  purposes  */ 

for (p=start ;p<end;p++)  { 

if  (P“Start+8)  chksum*  (bite='^p  &  Oxff)  &  Oxff  ; 
if(p>start+8  )  chksum''- (bite-*p  &0xff)  &  Oxff  ; 

SerGetBuf (-6, &1) ; 
if(l>0)  { 

ErrorFlag=l; 

break; 

} 

send(*p) ; 

} 

if  ( lErrorFlag)  send (chksum) ; 

CheckError ( ) / 
if  ( lErrorFlag)  ( 
if (Coprocessor)  { 

InputBuf fer ( 96+12+96)  ; 

CopyRegs  ()  ;  CopyFloat  (96)  ; 

} 

else  { 

InputBuf fer (96) ; 

CopyRegs ( ) ; 

} 

} 

ErrorFlag*OxOO ; 

Stop_n_Flush ( ) / 

} 

/*  PRINTHEXO 
function : 

-  This  function  prints  onto  the  screen  in  hexadecimal  format . 
arguments : 

-  l,i 
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called  by: 

-  DisAsm ( ) /monitor . c 
calls  : 

-  print () /monitor .c 
Itoa ( ) /monitor . c 


*/ 

printhex (1, i) 
int  i; 
long  1/ 

{ 

char  s[21]; 

Itoa (1, s, i) ; 

print (s);  DrawChar('  '); 
) 


/*  PRINT  0 

function : 

-  This  function  prints  a  string  onto  the  screen, 
arguments : 

-  s 

called  by: 

-  printhexO /monitor  .c 

-  help  0 /monitor. c 

-  DumptoScreenO /monitor. c 

-  DisAsm  () /monitor  .  c 
calls  : 

-  None 

*/ 

print  (s) 
char  s  [  ]  / 

int  i ; 

Point  p; 

for (i-l; i<-s  [0] ; i++)  { 
if  (s  [i]  =*=' \n' )  { 

ScrollRect (&myRect,0,-(scrollsize+4) ,myRgn) ; 

MoveTo (4, myRect .bottom-40) ; 

} 

else 

DrawChar (s  [i] ) ; 

} 

} 


/*  PRINTHEX2() 
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function : 

-  This  function,  together  with  the  'Print2'  function,  copies  the 
hexadecimal  data  to  the  '  Print. Buf'  . 

arguments : 

-  IfifY 
called  by : 

-  DisAsmO /monitor  .c 
“  doFunction ( ) /menu . c 

calls  : 

print2 () /monitor . c 
Itoa ( ) /monitor . c 


*/ 

prnthex2 (1, i,y) 
int  i,y; 
long  1; 

{ 

char  s[21]; 

Itoa (1, s, i) ; 
print 2 (s,y) ; 

} 


/*  PRINT2() 
function : 

-  This  function,  together  with  the  'printhex2'  function, 
copies  the  hexadecimal  data  to  the  'PrintBuf' . 

arguments : 

-  s,y 
called  by; 

-  printhex2 ( ) /monitor , c 
calls  : 

-  None 


*l 

print2  (s, y) 
char  s  [  ] ; 
int  y; 

{ 

int  i; 

for (i=l; i<=s [0] ; i++,  y++)  { 

if (s [i] \n' )  break; 
else 

PrintBuf [y] *s [i] ; 

} 

) 
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/*  PRINTHEX3() 
function ; 

-  This  function,  together  with  the  'Prints'  function,  copies  the 
hexadecimal  data  to  the  'PrlntBuf' . 

arguments : 

-■  l/i/Y 
called  by: 

-  dump ( ) /monitor . c 

-  memdisp ( ) /menu . c 
calls  : 

-  prints () /monitor . c 
Itoa ( ) /monitor . c 


*/ 

prnthexS (1, i, y) 
int  i,y; 
long  1 ; 

{ 

char  s[2l]; 

Itoa (1, s, i) / 
prints (s,y) ; 

} 


/*  PRINTS  0 
function : 

-  This  function,  together  with  the  'printhexS'  function, 
copies  the  hexadecimal  data  to  the  'PrintBuf' . 

arguments : 

-  s,y 
called  by: 

-  printhexS ( ) /monitor . c 

calls 

-  None 


*/ 

prints (s, y) 
char  s  [  ] ;  - 
int  y; 

{ 

int  i ; 

for (i=l; i<»s 10] ; i++, y++) { 
if  (s  [i] —' \n' )  break; 
else 

PrintBuf [y] =s [i] ; 

} 

PrintBuf [y] ='  '/  y++; 
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} 


/*  SEND_REGS() 
function : 

-  This  function  downloads  all  the  MC68020  Data/Address/Control 
Register  contents  to  the  ECB. 

arguments : 

called  by: 

-  go ( ) /Monitor . c 
calls  : 

-  send () /download. c 
CheckError ( ) /download . c 


*/ 

sendregs  () 

{ 

char  outchar; 
int  m, chksum; 
long  tenpbuf-O; 
for (m»0;m<24;m++)  { 

tempbuf*registers [m] &0xff 000000; 

outchar- (char)  (tempbuf»24)  ; 

if(m— 0)  chksum  -(outchar  &  Oxff)  &  Oxff; 

else 

chksum  ^-(outchar  &  Oxff)  &  Oxff; 
send (outchar) ; 

tempbuf-registers [m] sOxOOff 0000; 
outchar- (char)  (tertpbuf»16)  ; 
chksum  ''» (outchar  &  Oxff)  &  Oxff; 
send (outchar) ; 

tempbuf-registers [m] &0x0000ff00; 
outchar- (char)  (tempbuf»8); 
chksum  ''-(outchar  &  Oxff)  &  Oxff; 
send (outchar) ; 

tempbuf-registers [m] &0x000000f f ; 
outchar- (char)  (tenpbuf»0) ; 
chksum  ''-(outchar  &  Oxff)  &  Oxff; 
send (outchar) ; 

) 

send ( (char) chksum)  ; 

CheckError ( ) ; 

ErrorFlag-OxOO ; 

} 

/*  DUMP  TO  PRN() 
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function : 

-  This  function  sends  the  contents  of  'PrintBuf'  to  the  printer, 
arguments ; 

-  ind-«‘X 
called  by: 

-  doFunct ion ( ) /menu . c 

-  dump () /Monitor. c 

-  DisAsmO /Monitor  .c 

-  LastScreen 0 /Monitor . c 
calls  : 

-  sendprn ( ) /download . c 


*/ 

DumptoPrn (index) 
int  index; 

{ 

int  i; 

for (i-0; i<“index; i++) 

sendprn ( (char) (PrintBuf [i] ) ) / 

) 


/*  DUMP__TO_SCREEN() 
function ; 

-  This  function  sends  the  data,  pointed  to  by  'ptr',  to 
the  screen. 

arguments : 

-  index,  ptr 
called  by: 

-  doFunct ion  0 /menu . c 
“  dump  0 /Monitor . c 

-  LastScreen 0 /Monitor . c 
calls  ; 

-  None 


*/ 

DumptoScreen (index, ptr) 
char  *ptr; 
int  index; 

{ 

char  DrwStr [255] ; 
int  i, j“l; 

for (i-0; i<“index;i++)  { 
if  (*ptr“0x0d)  ( 

DrwStr [0] =j-l; 
Drawstring (DrwStr) ; j-1; 
print  ("\p\n''); 
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ptr  +-2;  i++/ 

} 

«lse  { 

DrwStr t j]-(*ptr) ; 
ptr++;  j++; 

) 

} 

) 


/*  DRAW_X() 
function : 

-  This  function  writes  the  character  into  'PrintBuf' . 
arguments : 

-  y 

called  by: 

-  dump ( ) /Monitor . c 
calls  : 

“  None 

*/ 

Draw_x (y) 
int  y; 

{ 

PrintBuf ty]«'x' ; 

PrintBuf [y+1 ] x' ; 

PrintBuf  [y+2]='’  '/ 
z-y+3; 

} 


/*  DIS_ASM() 
function ; 

-  This  function  disassembles  the  code,  which  is  passed  to  it. 
arguments : 

called  by: 

-  doFunct ion ( ) /menu . c 
calls  : 

“  send ( ) /download . c 
print ( ) /monitor . c 
printhex ( ) /monitor . c 
FillQue ( ) /monitor . c 
printhex2 ( ) /monitor . c 
Dumpt  oP  r n ( ) /mon it  or . c 
InputBuf f er ( ) /download . c 
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DlsAsmO 

{ 

char  c, Dis_code-0x04  ; 
int  Fixcount-12, i  ; 
asm  ( 

LEA  @44, AO  ; 

MOVE.L  A0,HISPC; 

) 

DlsAsmOutBuf  [0]->80; 

*HISPC-StaDisAclr; 
do  { 

send(Dis  code); 
for (i-0;T<-400;i++)  ; 

for  (i“24;  8)  send  (c- (char)  (StaDisAdr»i) ) 

send  (C"  (char)  ( (Fixcount )  »0)  )  / 

InputBuffer (13)  ; 

for (i“0; i<12; i++)  DisAsmInBuf [ij—instring [i] ; 
asm  ( 

MOVEM.L  D0-D7/A0-A7,-(SP) ; 

BRA  @45; 

@44:  DC.L  0X00000000; 

@45:  LEA  DisAsmInBuf , A1 ; 

MOVE.L  (A1)+,D0; 

MOVE.L  (A1)+,D1; 

MOVE.L  (A1)+,D2; 

LEA  D'.sAsmOutBuf ,  A1  ; 

ADD.L  #1,A1; 

MOVE.L  044, A2; 

MOVE.L  A1,-(SP); 

MOVE.L  D0,-(SP); 

MOVE.L  D1,-(SP); 

MOVE.L  D2,-(SP); 

MOVE.L  A2,-(SP); 

MOVE . L  Subr Adr , A3 ; 

JSR  (A3) ; 

MOVE.L  (SP)+,A2; 

LEA  @44,  A3; 

MOVE.L  A2,(A3); 

ADD.L  #16, SP; 

MOVEM.L  (SP)+,D0-D7/A0-A7; 

} 

printhex (StaDisAdr, 8) ; 
print (DisAsmOutBuf ) ; 
print  (''\p\n")  ; 
if (NotAfterGo)  { 
i^O; 

prnthex2 (StaDisAdr, 8,  i) ; 
i+-8; 


PrintBuf [8] 

for (i“9; i<88; i++)  PrintBuf [i]=DisAsmOutBuf  ti-8] ; 

PrintBuf  [i]  «=0x0d;  i++; 

PrintBuf  [i]  =>0x0a; 

FillQue(i+l) ; 

if (Hardcopy)  DumptoPrn  (i) ; 

} 

StaDisAdr=  *HISPC; 

}  while  (StaDisAdr  <=  EndDisAdr) ; 

NotAfterGo-0; 

) 

/*  COPY_FLOAT() 
function : 

-  This  function  copies  the  Floating  Point  Registers,  which 
are  uploaded  by  the  ECB. 

arguments : 

-  fmWhere 
called  by: 

-  DownLoad ( ) /Monitor . c 

-  go ( ) /Monitor . c 
calls  : 

-  Itoa 0 /monitor . c 

-  Error C) /download. c 

*/ 

CopyFloat (fmWhere) 
int  fmWhere; 

{ 

char  instring2 [4] ,NotNumber=0, s [21] ; 

int  i,j,k,p=0,r; 

r=fmWhere; 

while (p<3)  {  /*  First  Copy  Coprocessor's  control  registers  */ 

fcregs[p]=  0; 
for  ( j"0; j<4; j++)  { 

instring2 [ j } -instring [r ] ; 
r++/ 

} 

for  ( j=0;  j<4 ;  j++)  fcregs  [p]  =  (instring2  [  j]  &0xf  f )  +  (fcregs  tp]  «8)  ; 
P++/ 

} 

fmWhere=r; 

for ( j«0; j<8; j++)  { 

for (i"0; i<12; i++)  Fbuf [i]=instring [fmWhere+it j*l2] ; 

fregs[0]  [  j]  *=Fbuf  f  3] +0x30; 

fregs [17] [ j] = (Fbuf [0] &0x0f ) +0x30; 

fregs  [18]  [  j]  =  ( (Fbuf  [H  »4)  &  0x0f )  +0x30; 

fregs [19] [ j]= (Fbuf [1] iOxOf) +0x30; 

for (r«17; r<20;r++) 
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if ( (fregs [r]  [ j]<0x30)  I  I (fregs [r]  [ j]>0x39) )  { 

for  (p*0;p<20;p++)  fregs [p] [j] -0x30; 

NotNumber-l; 
ltoa( (long) ( j) ,s,2) ; 

Error  ("\pNot  A  Number  ",''\por  Infinity 

II 

"\pln  FPReg.  #  ",s); 

} 

if  ( INotNumber)  { 

if ( (Fbuf [0]&0x80) !-0)  ManSign [ j]=' ; 
else 

ManSignt j]=' +' ; 

if ( (Fbuf [0] &0x40) 1-0)  ExpSign [ j]=' ; 
else 

ExpSign [ j) =' +' ; 

for(i-l,k=4;  k<12;  i+=2,k++)  { 

fregs  [i]  [  j]  =  (  (Fbuf  [k]  »4)  &0x0f )  +0x30; 
fregs [i+1] t j] = (Fbuf [k] &0x0f ) +0x30; 

} 

} 

NotN\nnber=0; 

) 

} 


/*  SEND_FLOAT() 
function : 

“  This  function  downloads  the  Floating  Point  Registers,  to  the  ECl 
arguments : 

called  by: 

-  go  0 /Monitor. c 
calls  : 

-  send 0 /download. c 

*/ 

SendFloat () 

( 

char  outchar, chksum; 
int  i,j,k; 
long  tempbuf; 

for ( j=0; j<3; j++)  {  /*  First  Send  Control, Staus, I  Registers  */ 

tempbuf-fcregs [ j] &0xff 000000; 
outchar- (char)  ( tempbuf »2 4)  ; 
if(j— 0)  chksum  -(outchar  &  Oxff)  &  Oxff; 

else  I 

chksum  ''-(outchar  &  Oxff)  &  Oxff; 
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send (out char)  ; 

tempbuf-fcregs [ j] &0x00ff0000; 
out  char- (char)  (teit5)buf»16)  ; 
chksum  ^-(outchar  &  Oxff)  &  Oxff; 
send(outchar) ; 

tempbuf-fcregs  t j] &0x0000ff00; 
out  char- (char)  (tempbuf»8)  ; 
chksum  ''-(outchar  &  Oxff)  &  Oxff; 
send(outchar)  ; 

tempbuf-fcregs [ j] &0x000000ff ; 
out  char- (char)  (ten5Jbuf»0)  ; 
chksum  ^-(outchar  &  Oxff)  &  Oxff; 

send(outchar) ;  /*  Control  registers  are  sent  */ 

} 

for(j=0/ j<8; j++)  { 

if  (ManSigntj )  Fbuf  [0]=0x00; 
else 

Fbuf [0] =0x80; 

if  (ExpSign[  j]— '+' )  Fbuf  [0] -Fbuf  [0]  &  Oxbf; 
else 

Fbuf [0] -Fbuf [0]  I  0x40; 

Fbuf [0]-Fbuf [0] I (fregs [17] [ j]  -  0x30); 

Fbuf[l]  =  (  ( (fregs  [lb]  [j] -0x30)  «4)  I  (fregs  [19]  [j] -0x30)  ); 
Fbuf[2]-0x00; 

Fbuf [3] -fregs [0] [j]-0x30; 
for (i-4, k=l; i<12; i++,  k+=2) 

Fbuf  [i3-(  (fregs  [k]  [j]-0x30)«4)  |  (fregs  [k+1]  [j]-0x30)  ; 
for (k=0;k<12;k++)  { 

send (Fbuf [k] )  ;  /*  Send  Floating  Point  Registers  */ 

chksum  ''=(Fbuf[k]  &  Oxff)  &  Oxff; 

} 

} 

send (chksum) ; 

) 


/*  LAST_SCREEN  { ) 
function : 

-  This  function  displays  the  latest  screen-full  information, 
arguments : 

-  k 

called  by: 

-  doFunct ion ( ) /menu . c 

-  HandleEvent ( ) /download . c 
calls  : 

-  DumptoPrn  ( )  /monitor  .  c 

-  DumptoScreen 0 /monitor .c 


*/ 
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LastScreen (k) 
int  k; 

{ 

int  i,lineNum; 
long  difference; 
if(k!-2)  { 

Tail-Head; 
lineNum— 0; 
for  in)  { 

if (lineNum>20)  { 

Tail+-2;  break; 

} 

if(Tall<  StartQue)  { 

Tail-EndQue; 
if (Reach)  { 

Tail-St artQue ; break ; 

} 

} 

if  (  (*Tail)  “OxOa)  lineNum++; 

Tail  — ; 

} 

difference-Head-Tail+lL; 
if (difference<0) 

difference- ( (EndQue-Tail) + (Head- StartQue) ) +2L; 
for (i=0; i< (int) (difference) ; i++)  { 

PrintBuf [i] -*Tail; 

Tail++; 

if (Tail>EndQue)  Tail=StartQue; 

} 

EraseRect (SmyRect) ; 

DumptoScreen ( ( (int) (difference) -2) , &PrintBuf [0] ) ; 
if (k)  DumptoPrn ( ( (int) (difference) -2) , &PrintBuf [0] ) ; 
} 

} 


/*  FILL_QUE() 
function : 

-  This  function  adds  the  latest  data  to  the  circular  queue, 
arguments; 

-  index 
called  by: 

-  doFunct ion ( ) /menu . c 

-  dump  0 /Monitor . c 

-  DisAsmO /Monitor. c 
calls  : 

-  None 

*/ 
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FlllQue ( index) 
int  index; 

{ 

int  i ; 

for (i-0; i<index; i++)  { 

if (Head>EndQue)  { 
Head*St artQue ; 
Reach“0; 

) 

*Head«“PrintBuf  [i]  ; 
Head++; 

} 


iv.  Souro*  ood*  of  dlsasn.o 


Dassy  0 
{ 

extern  long  ♦SubrAdr; 
/* 


BUFSIZE 

EQU 

80 

;SIZE  OF  OUTPUT  BUFFER 

EOT 

EQU 

4 

i 

FDATA 

EQU 

4 

;DATA  FIELD 

FOC 

EQU 

31 

; OP-CODE  FIELD 

FOP 

EQU 

39 

; OPERAND  FIELD 

LOCVARSZ 

EQU 

16 

*/ 

asmf 

MOVEM.L  D0-D7/A0-A7,- (SP) / 

LEA 

@DECODE,AO 

MOVE . L  AO , SubrAdr 

LEA 

@IS2,A0 

THE  FOLLOWING  CODE  (UNTIL  THE  LINE 

LEA 

0PGM,A4 

/*  DISASSEMBLY  PROGRAM  BEGINS  */), 

LEA 

0ISHIFT,A5 

CALCULATES  THE  DISPLACEMENT  OF  A 

LEA 

0ISH1,A6 

ROUTINE  HANDLING  ANY  PARTICULAR 

BSR 

0SUBR 

INSTRUCTION  (SUCH  AS  MOVE,  ADD  ETC 

LEA 

0ISH2,A6 

FROM  THE  BEGINNING  OF  THE  PROGRAM. 

BSR 

0SUBR 

THIS  DISPLACEMENT  VALUE  IS  THEN 

LEA 

0ISH3,A6 

WRITTEN  INTO  THE  CORRESPONDING 

BSR 

0SUBR 

ENTRY  IN  TABLE  "0TBL'' . 

LEA 

0ILH4,A6 

BSR 

0SUBR 

LEA 

0ISH5,A6 

BSR 

0SUBR 

LEA 

0I3H6,A6 

BSR 

0SUBR 

LEA 

0ISH7,  A6 

BSR 

0SUBR 

LEA 

0ISH8, A6 

BSR 

0SUBR 

' 

LEA 

0FORM1OEX, A5 

LEA 

0F1OEX1,A6 

BSR 

0SUBR 

LEA 

0F1OEX2,A6 

BSR 

0SUBR 

LEA 

0F1OEX3,A6 

BSR 

0SUBR 

LEA 

0F1OEX4,A6 

BSR 

0SUBR 

f 
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LEA 

@F10EX5,A6 

BSR 

eSUBR 

LEA 

0F1OEX6,A6 

BSR 

0SUBR 

LEA 

0FORM12,A5 

LEA 

0F121,A6 

BSR 

0SOBR 

LEA 

0F122,A6 

BSR 

0SUBR 

LEA 

@F123,A6 

BSR 

0SUBR 

LEA 

0F124,A6 

BSR 

0SUBR 

LEA 

0FORM9,A5 

LEA 

0F91,A6 

BSR 

0SUBR 

LEA 

0FORM8,A5 

LEA 

0F81,A6 

BSR 

0SUBR 

LEA 

0FORM7 , AS 

LEA 

0F71,A6 

BSR 

0SUBR 

LEA 

@FORM6D,A5 

LEA 

0F6D1,A6 

BSR 

0SUBR 

LEA 

0F6D2,A6 

BSR 

0SUBR 

LEA 

0F6D3,A6 

BSR 

0SUBR 

LEA 

0F6D4,  A6 

BSR 

0SUBR 

LEA 

0F6D5,A6 

BSR 

0SUBR 

LEA 

0FORM1O,A5 

LEA 

0F1O1,A6 

BSR 

0SUBR 

LEA 

0F1O2, A6 

BSR 

0SUBR 

LEA 

0F1O3,A6 

BSR 

0SUBR 

LEA 

0FORM12A,A5 

LEA 

0F12A1,A6 

BSR 

0SUBR 

LEA  0IMOVEQ,A5 
LEA  0IMVQ1,A6 
BSR  eSUBR 

LEA  0IBSR,A5 
LEA  @IBSR1,A6 
BSR  0SUBR 
LEA  0IBSR2,AJ; 
BSR  0SUBR 

LEA  0ICC,A5 
LEA  0ICC1,A6 
BSR  0SUBR 

LEA  0IDBCC,A5 
LEA  0IDBCC1,A6 
BSR  0SUBR 

LEA  @SCC,A5 
LEA  0SCC1,A6 
BSR  0SUBR 

LEA  0IQUICK,A5 
LEA  0IQUICK1,A6 
BSR  0SUBR 
LEA  0IQUICK2,A6 
BSR  0SUBR 

LEA  0FORM6A,  AS 
LEA  0F6A1,A6 
BSR  0SUBR 

LEA  0FORM11SL,A5 
LEA  0F11SL1,A6 
BSR  0SUBR 
LEA  0F11SL2,A6 
BSR  0SUBR 

LEA  0SCOMMON,A5 

LEA  0SCOMMON1,A6 

BSR  0SUBR 

LEA  0SCOMMON2,A6 

BSR  0SUBR 

LEA  0SCOMMON3,A6 

BSR  0SUBR 

LEA  @SCOMMON4,A6 

BSR  0SUBR 

LEA  @SCOMMON5,A6 

BSR  0SUBR 


LEA  @SCOMMON6,A6; 
BSR  @SUBR  ; 

LEA  0ISTOP,A5  ; 
LEA  eiST0Pl,A6  ; 
BSR  eSUBR 

LEA  0IMVFUSP,A5  ; 
LEA  0IMVFUSP1,A6; 
BSR  0SUBR  ; 

LEA  0IMVTUSP,A5  ; 
LEA  0IMVTUSP1,A6; 
BSR  0SUBR  ; 

LEA  0FORM5/A5  ; 
LEA  0F51,A6 
BSR  0SUBR  ; 

LEA  0FORM4 , AS  ; 
LEA  0F41,A6  ; 

BSR  0SUBR 

LEA  0ILINK,A5  ; 
LEA  @ILINK1,A6  ; 
BSR  0SUBR  ; 

LEA  01 MO VEMTR , AS ; 
LEA  0IMVMTR1,A6  / 
BSR  0SUBR  ; 

LEA  0FORM1A, AS  ; 
LEA  @F1A1,A6 
BSR  0SUBR  ; 

LEA  0F1A2,A6  ; 

BSR  0SUBR  ; 

LEA  0FORM1,AS 

LEA  0F11,A6 

BSR  0SUBR 

LEA  0F12,A6  ; 

BSR  0SUBR 

LEA  0F13,Ae  ; 

BSR  0SUBR  ; 

LEA  0F14,A6  ; 

BSR  0SUBR 

LEA  0F1S,A6  ; 

BSR  0SUBR  ; 

LEA  @FORM3,A5  ; 


LEA 

0F31,A6 

BSR 

esuBR 

LEA 

0F32,A6 

BSR 

eSUBR 

LEA 

0F33,A6 

BSR 

0SUBR 

LEA 

0IMOVEMFR,A5 

LEA 

0IMVMFR1,A6 

BSR 

0SUBR 

LEA 

0FORM11,A5 

LEA 

0F111,A€ 

BSR 

0SUBR 

LEA 

0IMVTSR,A5 

LEA 

0IMVTSR1,A6 

BSR 

0SUBR 

LEA 

0IMVTCCR,A5 

LEA 

0IMVTCCR1, A6 

BSR 

0SUBR 

LEA 

0IMVFSR, A5 

LEA 

0IMVFSR1,A6 

BSR 

0SUBR 

LEA 

0IMOVE,A5 

LEA 

0IMOVE1, A6 

BSR 

0SUBR 

LEA 

0IMOVE2,A6 

BSR 

0SUBR 

LEA 

0IMOVE3,A6 

BSR 

0SUBR 

LEA 

0IMMED,A5 

LEA 

0IMMED1,A6 

BSR 

0SUBR 

LEA 

0IMMED2,A6 

BSR 

0SUBR 

LEA 

0IMMED3,A6 

BSR 

0SUBR 

LEA 

@IMMED4,A6 

BSR 

@SUBR 

LEA 

0IMMED5,A6 

BSR 

@SUBR 

LEA 

@IMMED6,A6 

BSR 

0SUBR 

LEA 

@IM0VEP,A5 

LEA  @IM0VEP1,A6  ; 
BSR  esUBR  ; 

LEA  QISETS,A5 
LEA  QISETS1>A6  ; 
BSR  3SUBR  ; 

LEA  3ISETS2,A6  ; 
BSR  3SUBR 
LEA  0ISETS3,A6  ; 
BSR  QSUBR  ; 

LEA  37SETS4,A6  ; 
BSR  (fSUBR  ; 

LEA  0ISETD,A5  ; 
LEA  0ISETD1,A6  ; 
BSR  0SUBK  ; 

LEA  0ISETD2,A6  ; 
BSR  0SUBR 
LEA  0ISETD3,A6  ; 
BSR  0StJBR  ; 

LEA  0ISETD4,A6  ; 
BSR  @SUBR 
JMP  (AO)  ; 

0SUBR:  MOVE.L  A5,A3  ; 

SUB . L  A4 , A3  ; 

MOVE.W  A3, (A6)  / 

RTS  ; 


/*  DISASSEMBLY  PROGRAM  BEGINS  */ 

/*  CALLING  SEQUENCE: 

D0,D1,D2  Contains  the  code  to  be  Disassembled 

A4  ■  Value  of  Program  Counter  for  the  code 

AS  *  Pointer  to  store  data  (BUFSIZB  -  80  assumed) 

JSR  DECODE 
RETURN: 

A4  ■  Value  of  Program  Counter  for  next  instruction 
AS  -  Pointer  to  line  as  Disassembled 
A6  ■  Pointer  to  End  Of  Line 

01234  5678901234Sn89012345678901234S67  890123456789 
AAAAAA  FDATA.DDDL.  'DDDDDDDD  FOC _ FOP . 

*/ 

ePGM:  NOP  ;BASE  ADDRESS  THIS  MODULE 

/*  MOVEM  REGISTERS  TO  EA 
OlOOlDOOlS . 

. XXXXXX  EFFECTIVE  ADDRESS 


100 


. 0 

. 1 

. 0 _ 

. 1 _ 

*/ 


9IM0VBMFR:BSR 

OMO'TEMS 

MOVE.L 

#0X0038, D6 

AND.W 

(A4)  ,D6 

CMP.W 

#0X0020, D6 

BEQ.S 

0IM7788 

MOVE.L 

#1,D6 

MOVE.L 

♦0,D1 

BRA.S 

0IM7799 

0IM7788: 

MOVE . L 

#-l,D6 

MOVE.L 

♦15, D1 

0IM7799: 

BSR 

0MOVEMR 

MOVE.B 

(A6)s- 

ADD.L 

#2,D3 

MOVE.W 

(A4)  ,D4 

MOVE.W 

#0Xir4,D7 

BSR 

0EA 

BRA.S 

0CS16 

/* 

MOVEM  EA 

TO  REGISTl 

eiMOVEMTR:BSR 

0MOVEMS 

ADD.L 

♦  2,D3 

MOVE.W 

#0X7EC,D7 

BSR 

0EA 

MOVE.B 

(A6)+ 

MOVE.L 

#1,D6 

MOVE.L 

#0,D1 

BSR 

0MOVEMR 

ecS16: 

BRA 

0CS15 

01 STOP : 

MOVE.W 

2 (A4) ,D0 

MOVE.B 

#'#',  (A6)  + 

MOVE.B 

#'$',  (A6)  + 

BSR 

0PNT4HX 

BRA 

0 COMMON 4 

eiMMED: 

BSR 

0FORMSIZE 

ADD.L 

♦  2,D3 

MOVE.B 

#^#'  ,  (A6)  + 

CLR.L 

DO 

MOVE.W 

2 (A4} ,D0 

MOVE.W 

(A4)  ,D1 

LSR.W 

♦  6,D1 

AND.W 

#3,D1 

BEQ.S 

0IMMED65 

CMP.B 

#i,Dl 

BEQ.S 

0IMMED75 

ADD.L 

#2,D3 

WORD 

LONG 

REGISTER  TO  MEMORY 
MEMORY  TO  REGISTER 

;S1ZE 

Ir4 

1,4 

•predecrement  mode 

;D6  -  INCREMENTER  (BIT  POSITION) 

;D1  -  BIT  POSITION 
» 

';D6  -  DECREMENTER  (BIT  POSITION) 
;D1  -  BIT  POSITION 
/BUILD  MASK  WORD 
; STORE  COMMA 


/CONTROL  +  PREDECREMENT 
/COMMON 
*/ 

/SIZE 

/CONTROL  +  POSTINCREMENT 
/STORE  COMMA 

,D6  -  BIT  POSITION  INCREMENTER 
/D1  -  BIT  POSITION 

/COMMON 

/ IMMEDIATE 

/HEX 

/VALUE 

/ADD  AND  CMP  #  EOR  OR  SUB 

/SIZE  -  4 

/IMMEDIATE 

/DO  -  EXTENSION  WORD 


BYTE 

WORD 

.LONG  SIZE  -  6 
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MOVE  .L 

2 (A4) ,D0 

DO  -  LONG  EXTENSION 

WORD 

@IMMED45 : 

BSR 

@HEX2DEC 

DECIMAL 

MOVE.B 

D5,  (A6)  + 

COMMA  SEPARATOR 

MOVE 

(A4) ,D0 

AND.W 

#0X003F,D0 

CMP.W 

#0X003C,D0 

DESTINATION  ADDRESS 

MODE  111100 

BNE.S 

@IMMED55 

NOT  FOUND 

MOVE.W 

(A4) ,D0 

"SR"  ILLEGAL  FOR 

AND.W 

#0X4000, DO 

ADDI  SUBI  CMPI 

BNE 

0FERROR 

0600  0400  OCOO 

MOVE.W 

(A4) ,D1 

AND.W 

#0X00C0,D1 

CMP.W 

#0X0080, D1 

BEQ 

0FERROR 

.LONG  NOT  ALLOWED 

MOVF-.W 

(A4) ,D1 

BTST.L 

#6,D1 

BNE 

0STAT 

MOVE.B 

#'C'  ,  (A6)  + 

r#,  CCR  FOR  ANDI,  EORI,  ORI 

MOVE.B 

#'C'  ,  (A6)  + 

MOVE.B 

#'R'  ,  (A6)  + 

BRA.S 

0CS14 

COMMON 

@STAT: 

HOVE . B 

#'S'  ,  (A6)  + 

#,SR  FOR  ANDI,  EORI, 

ORI 

MOVE.B 

#'R'  ,  (A6)  + 

QCS15: 

BRA.S 

0CS14 

COMMON 

01MMED55: 

BSR 

0EA 

BRA.S 

0CS14 

COMMON 

@IMMED65: 

MOVE.Ii 

D0,D1 

D1  «  XXXXXXXX . 

• 

L.SR .  W 

#8,D1 

;D1  =  OOOCOOOOXXXXXXXX 

BEQ.S 

0IMMED75 

' 

MOVTi  .  L 

D0,D1 

• 

r 

ASR.W 

#7,D1 

• 

r 

ADD.W 

#1,D1 

; CHECK  FOR  NEGATIVE 

BNE 

GFERROR 

* 

r 

IMMED75; 

EXT.L 

DO 

r 

BRA 

@IMMED45 

’ 

/* 

BIT  543 

2109876543210 

_ RRRMMM. . . .  DESTINATION  REGISTER 

MODE 

. .MMMRRR  SOURCE  MODE  REGISTER 

0001 . . . . 

.BYTE 

0011 .  .  . . 

.WORD 

0010 . . . . 

.LONG 

IF  BYTE 

SIZE,  DESTINATION  ADDRESS  DIPJICT  NOT  ALLOWED. 

*/ 

QIMOVE: 

BRA 

0 IMOVEAl 

GILINK; 

BSR.S 

0FORMREGA 

MOVE.B 

D5,  (A6)  + 

COMMA  SEPARATOR 

MOVE.B 

#'#',  (A6)  + 

MOVE.W 

2 (A4) ,D0 

EXT.L 

DO 

"SR" 
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BSR 

0HEX2DEC 

BRA 

0COMMON4 

QFORMl ; 

BSR 

0FORMSIZE 

/* 

NBCD 

TAS 

0FORM1A: 

BSR 

0EA 

6CS14; 

BRA 

0CS13 

0FORM3 : 

BSR.S 

0FORMREGD 

BRA.S 

0CS13 

@FORM4 : 

MOVE.B 

#('#'),  (A6)■^ 

MOVE.W 

(A4)  ,D0 

AND.L 

#0X0F,D0 

BSR 

0HEX2DEC 

BRA.S 

0CS13 

0FORM5 : 

BSR.S 

0FORMREGA 

PRA.S 

0CS13 

/* 

5432109876543210 

•  •  •  t  •  < 

. . xxxxxx 

*/ 

0FORM6A: 

MOVE.W 

#0X7E4,D7 

BSR.S 

0EA1O 

MOVE.B 

D5,  (A6)  + 

MOVE.W 

(A4) ,D4 

ROL.W 

#7,D4 

BSR.S 

0FORMREGA 

BRA.S 

0CS13 

/* 

BIT  5432109876543210 

.... DDD . 

.  . XXXXXX 

*/ 

0FORM6D : 

MOVE.W 

#0XFFD,D7 

BSR.S 

0EA1O 

MOVE.B 

D5,  (A6)  + 

MOVE.W 

(A4) ,D4 

ROL.W 

#7,D4 

BSR.S 

0FORMREGD 

BRA.S 

0CS13 

0FORMREGA 

:  MOVE.B 

#'A'  ,  (A6)  + 

0FORMREG5:AND.B 

#0X07, D4 

OR.B 

#('0'),D4 

MOVE.B 

D4,  (A6)  + 

RTS 

0FORMREGD : MOVE . B 

#('D'  ),  (A6)  + 

BRA 

0FORMREG5 

/*  BIT  5432109876543210 

....  ODD . ODD 

*/ 


; DECIMAL  DISPLACEMENT 
;CLR  NEG  NEGX  NOT  TST 
*/ 

;DATA  ALTERABLE  ONLY 

; COMMON 

;EXT  SWAP 

; COMMON 

/TRAP 


DECIMAL 

COMMON 

UNLNK 

COMMON 


ADDRESS  REGISTER 
EFFECTIVE  ADDRESS 

/CONTROL  ADDRESSING 

/COMMA  SEPARATOR 


COMMON 


DATA  REGISTER 
EFFECTIVE  ADDRESS 

/CHK  DIVS  DIVU  MULS  MULU  DATA  ,ADRESG 
■COMMA  SEPARATOR 


COMMON 
FORMAT  A0 


FORMAT  D@ 


DATA  REGISTERS 
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eFORM7 ; 

ROL.W 

#7,D4 

EXG 

BSR 

erORMREGD 

MOVE.B 

D5,  (A6)  + 

COMMA  SEPARATOR 

MOVE.W 

(A4)  ,D4 

BSR 

eFORMREGD 

BRA.S 

ecsi3 

COMMON 

/* 

BIT  5432109876543210 

_ AAA. 

. . . .AAA  ADDRESS  REGISTERS 

*/ 

eFORMS : 

ROL.W 

#7,D4 

EXG 

BSR 

qformrega 

eFORM815: 

MOVE.B 

(A6)  + 

COMMA  SEPARATOR 

MOVE.W 

(A4) ,D4 

BSR 

eFORMREGA 

eCS13: 

BRA 

ecsi2 

;CC»lMON 

/* 

BIT  5432109876543210 

_ DDD . 

.  DATA  REGISTER 

*/ 

eFORM9 : 

ROL.W 

#7,D4 

EXG 

BSR 

eFORMREGD 

DATA  REGISTER 

BRA 

eFORM815 

eEAlO: 

BRA 

eEA 

/*  5432109876543210 

. AAAAAA 

. MMM . 

•  •  «  « 

. Oil . 

. Ill . 

. 000 . 

. 0 . 

. 1 . 

. 00 . 

. 01 . 

. 10 . 


EFFECTIVE  ADDRESS 
OP -MODE 
D-REGISTER 
WORD  EAr  Ae 
LONG  EA,  Ae 

EA,  De  BYTE  (ADDRESS  REGISTER  DIRECT 
NOT  ALLOWED) 

EA,  De 
De,  EA 
BYTE 
WORD 
LONG 


ADD  <EA>,Ae 


*1 

eFORM10EX:MOVE.W 

MOVE.L 

AND.W 

BEQ.S 

CMP.W 

BEQ.S 

CMP.W 

BNE.S 


CMP  <EA>,Ae 

#0XFFF,D7 

D4,D0 

#0X01C0,D0 

eFORM103 

#0X01C0,D0 

e^ORMlOES 

#0X00C0,D0 

eFORM10E6 


SUB  <EA>,Ae 

;ADD  CMP  SUB, ALL  MODES  ALLOWED 
, 

; . 000 . 

: . Ill . 
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STORE  PERIOD 


MOVE.B 

(A5)  + 

MOVE.B 

♦  'W',  (A5)  + 

BRA.S 

@FORM10E4 

0FORM1OE  3:  MOVE.B 

(A5)  + 

MOVE.B 

,  (A5)  + 

@FORM10E4:BSR 

0EA1O 

MOVE.B 

D5,  (A6)  + 

MOVE.W 

(A4) ,D4 

ROL.W 

#7,D4 

BSR 

qformrega 

BRA.S 

@CS12 

0FORM1OE6:BTST.B 

♦  0,  (A4) 

BNE.S 

0FORM1O5 

BRA.S 

0FORM1O4 

/*  5432109876543210 

. .AAAAAA 

. MMM 

•  • • • RRR • • • 


Oil 


STORE  COMMA  SEPARATOR 


<EA>,  Ae 
COMMON 

. 1.  ......  .  D@,<EA> 

. 0 .  <EA>,D0 


EFFECTIVE  ADDRESS 
OP -MODE 
D-REGISTER 


0 

1 


.00 . 

.01 . 

*/ 

.10 . 

0FORM1O: 

BTST.B 

#0,  (A4) 

BNE.S 

@FORM105 

0FORM1O3: 

MOVE . W 

#0XFFD,D7 

0FORM1O4 ; 

BSR 

OFORMSIZE 

BSR 

@EA10 

MOVE.B 

D5,  (A6)  + 

MOVE.B 

(A4) ,D4 

LSR.B 

#1,D4 

BSR 

0FORMREGD 

BRA.S 

@CS12 

0FORM1O5: 

BSR 

0FORMSIZE 

MOVE.B 

(A4) ,D4 

LSR.B 

#1,D4 

BSR 

OFORMREGD 

MOVE.B 

D5,  (A6)  + 

MOVE.W 

(A4) ,D4 

MOVE.W 

#0X1FD,D7 

/* 

PEA 

(JMP  JSR) 

BSR 

0EA1O 

0CS12: 

BRA 

0 COMMON 

0FORM11: 

MOVE.W 

#0X7E4,D7 

BSR 

0EA1O 

BRA.S 

0CS12 

EA,  D(? 

D@,EA 

BYTE 

WORD 

LONG 

;AND  EOR  OR 

* 

;DATA  ADDRESSING 

. 

; <EA>, D@ 

/COMMA  SEPARATOR 


COMMON 
D@,  <EA> 


/COMMA  SEPARATOR 
/ 

/ALTERABLE  MEMORY  ADDRESSING 
*l 


CONTROL  ADDERSSING 
COMMON 
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/*  JMP  JSR 


@F0RM11SL: MOVE.L 

04,00 

AND.W 

#0X3F,D0 

CMP.W 

#0X38,00 

BNE.S 

0FORM112 

MOVE.B 

#'  .',  (A5)  + 

MOVE.B 

#'S',  (A5)  + 

0FORM112:  CMP.W 

#0X39,00 

BNE.S 

0FORM114 

MOVE.B 

#' .', (A5)+ 

MOVE.B 

#'L',  (A5)  + 

0FORM114:  BRA 

0FORM11 

/*  BIT  5432109876543210 

....  XXX . 0  .  .  . 

....  XXX . 1 .  .  . 

....  XXX .00 . 

. 01 . 

. 10 . 

. 0.  .  . 

. 1.  .  . 

. oxxx 

. IXXX 

*/ 

@F0RM12 ;  BSR  @FORMSIZE 

BTST  #3,04 

BNE.S  0FORM125 

BSR  0FORMREGD 

MOVE.B  D5,  (A6)  + 

MOVE.B  (A4),D4 

LSR.B  #1,04 

BSR  0FORMREGD 

BRA.S  0CS11 

0FORM125;  MOVE.B  #'-',(A6)+ 

MOVE.B  #M',(A6)  + 

BSR  0FORMREGA 

MOVE.L  #0X28202029,00 

BSR.S  0SCHR 

MOVE.B  (A4),04 

LSR.B  #1,04 

BSR  @FORMREGA 

MOVE.B  #')',(A6)+ 

BRA.S  0CS11 

/*  BIT  5432109876543210 

....  XXX . 1 .  .  . 

....  XXX .00 . 

. 01 . 

. 10 . 

. 1.  .  . 


*/ 


OATA  OESTINATION  REGISTER 

AOORESS  REGISTER 

BYTE 

WORO 

LONG 

OATA  REGISTER  TO  OATA  REGISTER 
MEMORY  TO  MEMORY 
OATA  SOURCE  REGISTER 
AOORESS  SOURCE  REGISTER 

/ABCO  ADOX  SBCO  SUBX 


00,00  FORMAT  SOURCE 
COMMA  SEPARATOR 


FORMAT  OESTINATION 
COMMON 


M-,)' 


ADDRESS  REGISTER  DESTINATION 

BYTE 

WORD 

MLONG 

MEMORY  TO  MEMORY 
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*/ 

0FORM12A: 


QCSll: 

GIQUICK: 

/* 


*/ 

01MOVEQ: 


0SCHR: 


IXXX 


BSR 

GFORMSIZE 

MOVE.B 

#'  (',  (A6)  + 

BSR 

GFORMREGA 

MOVE.L 

«0X282C2B29 

BSR.S 

GSCHR 

MOVE.B 

(A4) ,D4 

LSR.B 

♦  l,D4 

BSR 

GFORMREGA 

MOVE.B 

#')  ^  (A6)-l- 

MOVE.B 

#'+'  ,  (A6)  + 

BRA 

G COMMON 

BRA 

GIQUICKA 

BIT  5432109876543210 

0111 .  . .0 
.... RRR . 

DDDDDDDD 

MOVE.B 

(A6)  + 

MOVE.W 

(A4) ,D0 

EXT.W 

DO 

EXT.L 

DO 

BSR 

GHEX2DEC 

MOVE.B 

D5,  (A6)  -H 

ROL.W 

#7,D4 

BSR 

GFORMREGD 

BRA 

GCSll 

MOVE.B 

DO,  (A6)  + 

LSR.L 

♦  8, DO 

BNE 

GSCHR 

RTS 

ADDRESS  SOURCE  REGISTER 

/CMPM 

;  ( 

;A0 

;  M,+)' 

/STORE  CHARS 


A@ 


/ADDQ  SUBQ 
FIXED 

DATA  REGISTER 
SIGN  EXTENDED  DATA 

/ IMMEDIATE 


DECIMAL 

COMMA  SEPARATOR 


COMMON 

OUTPUT  STRING 
MORE  TO  OUTPUT 


I* 

GIMVFSR: 


MOVE  FROM 

MOVE.L 

BSR 

BSR 

BRA 


STATUS  REGISTER  (SR) 
# (0X2C5253) ,D0  / 
0SCHR 

@EA  / 
GCSll 


*! 

',RS'  SR, 

DATA  ALTERABLE 
COMMON 


/* 

@IMVFUSP; 


MOVE  FROM  USP  (USER  STACK  POINTER) 


MOVE.L  # (0X2C505355) ,D0 
BSR  GSCHR 

BSR  QFORMREGA 

BRA  GCSll 


USP, 


COMMON 


*/ 

,PSU" 


/* 

GIMVTSR: 


0IMVT44 : 


MOVE  TO  SR  (STATUS  REGISTER) 
MOVE.W  #0XFFD,D7 
BSR  GEA 

MOVE.L  # (0X52532C) ,D0 

BSR  GSCHR 


*/ 

/DATA  ADDRESSING 
•SR  "RS, " 
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BRA 


0CS11 


; COMMON 


/*  MOVE  TO  USP  (USER  STACK  POINTER)  */ 


0IMVTUSP: 

BSR 

0FORMREGA 

MOVE.L 

#(0X50535520  ,D0 

t 

•,USP  "PSU, " 

BRA 

0IMVT44 

■ 

/* 

MOVE  TO 

CCR  (CONDITION  CODE 

REGISTER)  */ 

@IMVTCCR: 

MOVE.W 

#0XFFD,D7 

4 

DATA  ADDRESSING 

BSR 

0EA 

4 

MOVE.L 

# (0X5243432C) ,D0 

I 

,CCR  "RCC,” 

BRA 

0IMVT44 

/* 

BIT  5432109876543210 

0000. . .1 

.  .001.  .  . 

FIXED 

....  XXX . 

DATA  REGISTER 

0 . 

MEMORY  TO  REGISTER 

1 . 

REGISTER  TO  MEMORY 

.  0 . . 

WORD 

.1 . 

LONG 

ADDRESS  REGISTER 

*/ 

0IMOVEP; 

MOVE.B 

(A5)  + 

D0,#(A0) 

MOVE.W 

# (0X4C57) ,D0 

"LW" 

BTST 

#6,D4 

BEQ.S 

0IMOVEP11 

USE  "W" 

LSR.W 

#8, DO 

USE  "L” 

01MOVEP11:MOVE.B 

DO,  (A5)  + 

LENGTH 

MOVE.B 

(A4) ,D4 

LSR.B 

♦  1,D4 

BTST.B 

#7,1(A4) 

BEQ.S 

0IMOVEP35 

BSR 

0FORMREGD 

D0, 0XHHHH(A@) 

MOVE.B 

D5,  (A6)  + 

COMMA  SEPARATOR 

MOVE.W 

(A4) ,D4 

BSR.S 

0IMOVEP66 

@CS20: 

BRA 

0 COMMON 4 

0IMOVEP35 

:BSR.S 

0IMOVEP66 

OXHHHH(A0) ,D0 

MOVE.B 

D5,  (A6)  + 

COMMA  SEPARATOR 

MOVE.B 

(A4) ,D4 

LSR.B 

#1,D4 

BSR 

0FORMREGD 

BRA 

0CS2O 

COMMON4 

0IMOVEP66:MOVE.B 

#'$',  (A6)  + 

FORMAT  DISPLACEMENT 

MOVE.W 

2 (A4) ,D0 

BSR 

0PNT4HX 

MOVE.B 

#'  (',  (A6)  + 

MOVE.W 

(A4)  ,D4 

BSP 

0FORMREGA 

MOVE.B 

#')  ',  (A6>  + 
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RTS 

t 

esCOMMON; 

BRA 

0 COMMON 

;NOP  RESET  RTE  RTR  RTS  TRAPV 

0SCC: 

BSR 

0ICCCC 

;GET  REST  OF  OP-CODE 

BSR 

0EA 

/DATA  ALTERABLE 

BRA 

0SCOMMON 

t 

eiDBCC: 

MOVE.W 

(A4) ,D4 

;DB — 

BSR 

0FORMREGD 

f 

MOVE.B 

D5,  (A6)  + 

/COMMA  SEPARATOR 

MOVE .B 

(A6)  + 

/HEX  FIELD  TO  FOLLOW 

BSR 

@ICCCC 

/ 

BRA.S 

0ICC55 

i 

/* 

BIT  5432109876543210 

0110 . 

FIXED 

_ CCCC . 

CONDITION 

. DDDDDDDO 

DISPLACEMENT 

*/ 

0ICC: 

ERROR  (ODD  BOUNDRY  DISPLACEMENT) 

BSR 

0ICCCC 

/B— 

0IBSR: 

MOVE.B 

(A6)  + 

/BSR  BRA 

TST.B 

D4 

t 

BEQ.S 

0ICC55 

/16  BIT  DISPLACEMENT 

MOVE.B 

(A5)  + 

r 

MOVE.B 

#'S',  (A5)  + 

• 

f 

EXT.W 

D4 

/8  BIT  DISPLACEMENT 

0ICC35  : 

EXT.L 

D4 

/SIGN-EXTENDED  DISPLACEMENT 

ADD.L 

A2,D4 

/+  PROGRAM  COUNTER 

ADD.L 

#2,D4 

/+  TWO 

MOVE.L 

D4,D0 

• 

f 

ASR.L 

#1,D4 

t 

BCS 

0FERROR 

/ODD  BOUNDRY  DISPLACEMENT 

BSR 

0PNT6HX 

r 

BRA 

0SCOMMON 

• 

r 

@TCC55: 

ADD.L 

#2,D3 

/SIZE 

MOVE.W 

2 (A4) ,D4 

r 

MOVE.B 

(A5)  + 

9 

MOVE.B 

#'L',  (A5)  + 

/.L  FOR  16  BIT  DISPLACEMENT 

BRA 

@ICC35 

9 

/* 

BCHG  BCLR  BSET  BTST 

*/ 

0ISETD: 

ROL.W 

#7,D4 

/DYNAMIC  BIT 

BSR 

©FORMREGD 

/DATA  REGISTER 

0ISETD12: 

MOVE . E 

D5,  (A6)  f- 

/COMMA  SEPARATOR 

MOVE  .  W 

(A4) ,D4 

9 

BSR 

0EA 

/DATA  ALTERABLE 

0CS18: 

BRA 

@SCOMMON 

/* 

BCHG  BCLR  BSET  BTST 

1ST  WORD 

XXXX  EA  DATA  ALTERABLE  ONLY 

2ND  WORD 

0000  0000  OOOY 

YYYY  BIT  NUMBER 
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*/ 

0ISETS:  ADD.L 

#2,D3 

MOVE.B 

#'#^  (A6)  + 

CLR.L 

DO 

MOVE.W 

2 (A4) ,D0 

MOVE.L 

D0,D1 

LSR.L 

#5,D1 

BNE 

0FERROR 

BSR 

@HEX2DEC 

BRA 

0ISETD12 

/*  BIT  5432109876543210 

....  XXX . 

0 . 

1 . 

.00 . 

.01 . 

.10 . 

_ 6. . 

.11 . 

_ 0.  . 

.IIAAAAAA 

. * 

.  .  .1 . 

*/ 

eiSHIFT:  MOVE.W 

# (0X4C52) ,D0 

BTST 

#8,D4 

BEQ.S 

0ISHIFT13 

LSR.W 

♦  8, DO 

0ISHIFT135MOVE.B 

DO,  (A5)  + 

MOVE.W 

(A4)  DO 

AND.W 

#0X00C0,D0 

CMP.W 

#0X00C0,D0 

BEQ.S 

01 SHIFTMl 

BSR 

0FORMSIZE 

ROL.W 

#7,D4 

BTST 

#12, D4 

BNE.S 

@ISHIFT33 

AND.B 

#0X07, D4 

BNE.S 

0ISHIFT23 

OR.B 

#0X08, D4 

@ISHIFT23:OR.B 

#'0',D4 

MOVE.B 

#'#',  (A6)  + 

MOVE.B 

D4,  (A6)  + 

BRA.S 

0ISHIFT44 

@ISHIFT33:BSR 

0FORMREGD 

0ISHIFT44:MOVE.B 

D5,  (A6)  + 

MOVE.W 

(A4) ,D4 

BSR 

@FORMREGD 

@CS17:  BRA 

0CS18 

0 I SHIFTMl: MOVE.B 

#'  .',  (A5)  + 

MOVE.B 

#'W',  (A5)  + 

STATIC  BIT,  SIZE 
IMMEDIATE 

GET  BIT  POSITION  FROM  2ND  WORD 


DECIMAL 


IMMEDIATE  COUNT/REGISTER 

RIGHT  SHIFT 

LEFT  SHIFT 

BYTE 

WORD 

LONG 

WORD  (MEMORY) 

EFFECTIVE  ADDRESS 

SHIFT  IMMEDIATE  COUNT 

SHIFT  COUNT  (MODULO  64)  IN  DATA  REG. 

;'LR'  AS-  LS-  RO-  ROX- 
; DIRECTION  BIT 
; RIGHT 
;  LEFT 

/DIRECTION  "L"  OR  "R” 


MEMORY  SHIFT 


I/R  BIT 

COUNT  IN  REGISTER 
IMMEDIATE  COUNT 

CHANGE  ZERO  TO  EIGHT 


COMMA  SEPARATOR 


COMMON 

PERIOD 

.WORD 


no 


BTST 

♦11, D4 

BNE 

0FERROR 

;BIT  11  MUST  BE  ZERO 

MOVE.W 

#0X1FC,D7 

/MEMORY  ALTERABLE  ADDRESSING 

BSR 

0EA 

/ 

BRA 

0CS17 

/COMMON 

QICCCC: 

MOVE.L 

♦0X0F,D0 

/APPEND  CONDITION  CODE 

AND.B 

(A4)  ,D0 

/DO  -  CCC 

LSL.L 

#1,D0 

/DO  -  CCC*2 

MOVE.L 

AO, -(SP) 

t 

LEA 

0BRTBL, AO 

t 

ADD.L 

DO,  AO 

f 

MOVE.B 

(AO) ,D1 

t 

LSL.L 

#4,D1 

f 

LSL.L 

#4,D1 

f 

MOVE.B 

1  (AO)  ,D1 

} 

MOVE.L 

(SP)+,A0 

! 

MOVE.W 

0BRTBL(PC,DO 

.W),D1  /GET  BRANCH  MNEMONIC 

MOVE.B 

Dl,  (A5)  + 

/ (REVERSED)  FROM  THE  TABLE 

LSR.W 

#8,D1 

/AND  ADD  THE  NONBLANK  PORTION 

CMP.B 

#'  ',D1 

/TO  THE  BUFFER. 

BEQ.S 

0ICCCC9 

/ 

MOVE.B 

Dl,  (A5)  + 

• 

f 

0ICCCC9: 

RTS 

t 

0BRTBL ; 

DC.B 

/ ' T' , '  '  BRA  ACCEPTED 

DC.B 

/  ,^/F'  ;'F' 

f  9  • 

♦  f 

DC.B 

DC.B 

'S','L'  ;'L' 

, 'S' 

DC.B 

'C','C'  ;'C' 

f  nf  • 

DC.B 

'S','C'  /'C' 

,'S' 

DC.B 

'E','N'  /'N' 

,'E' 

DC.B 

'Q','E'  ;'E' 

,'Q'  ; 

DC.B 

'C','V'  }'V' 

,'C' 

DC.B 

,'S' 

DC.B 

'L','P'  ;'P' 

,'L' 

DC.B 

;'M' 

,'I' 

DC.B 

'E','G'  ;'G' 

,'E' 

DC.B 

'T','L'  ;'L' 

,'T' 

DC.B 

'T','G'  ;'G' 

,'T' 

DC.B 

'E','L'  ;'L' 

,'E' 

/* 

BIT  5432109876543210 

.... RRRMMM . 

DESTINATION  REGISTER  MODE 

. .MMMRRR 

SOURCE  MODE  REGISTER 

*/ 

IF  BYTE 

SIZE,  ADDRESS 

DIRECT  NOT  ALLOWED  AS  SOURCE 

0IMOVEA1 : 

MOVE.W 

#0XFFF,D7 

/ALL  MODES 

BSR 

0EA 

9 

MOVE.B 

D5,  (A6)  + 

/COMMA  SEPARATOR 

MOVE.W 

(A4) ,D4 

; . . . .RRRMMM . 

LSR.W 

♦  1,D4 

LSR.B 

♦  5,D4 

P.OR .  W 

#8,D4 

LSL.B 

#5,D4 

LSR.W 

♦  5,D4 

/* 

IF  .BYTE 

DESTINATION  A0  NOT  ALLOWED  */ 

MOVE.W 

#0X1FF,D7 

DATA  ALTERABLE  -I- 

A0 

MOVE.B 

(A4) ,D0 

CMP.B 

#0X01, DO 

BNE.S 

0IMOVE19 

NOT  BYTE  SIZE 

MOVE.W 

#0X1FD,D7 

DATA  ALTERABLE 

0IMOVF.9: 

BSR 

0EA 

BRA.S 

0CS19 

COMMON 

/* 

IF  BYTE, 

ADDRESS  REGISTER  DIRECT  NOT  ALLOWED 

*/ 

0IQUICKA: 

BSR.S 

@FORMSIZE 

ADDQ  SUBQ 

MOVE.B 

#'#'  ,  (A6)  + 

ROL.W 

#7,D4 

AND.B 

#7,D4 

BNE.S 

0IQUICK21 

OR.B 

#8,D4 

‘MAKE  ZERO  INTO  EIGHT 

0IQUICK21 

:OR.B 

#'0',D4 

MAKE  ASCII 

MOVE.B 

D4,  (A6)  + 

MOVE.B 

D5,  (A6)  + 

COMMA  SEPARATOR 

MOVE.W 

(A4) ,D4 

MOVE.W 

(A4)  ,D0 

AND.W 

#0X00C0,D0 

BEQ.S 

0IQUICK31 

DATA  ALTERABLE 

MOVE.W 

#0X1FF,D7 

■ALTERABLE  ADDRESSING 

@IQUICK31:BSR  @EA 

@CS19:  BRA  @COMMON 


/*  BIT 


*/ 

0FORMSIZE:MOVE.W 

MOVE.B 

LSR.W 

AND.W 

BNE.S 

MOVE.B 

BRA.S 

0FORM91;  MOVE.B 
CMP.B 
BEQ.S 
MOVE.B 


5432109876543210 

.  .  00 . 

.  .01 . 

.  .10 . 


(A4) ,D2 

(A5)  + 

#6,D2 
#0X03, D2 
0FORM91 
#'B',  (A5)  + 
@FORM95 
t'W" ,D0 
#1,D2 
@FORM93 
#'L' ,D0 


11 


BYTE 

WORD 

LONG 

ERROR 


STORE  PERIOD 


STORE  "B" 


112 


CMP.B 

♦  2,D2 

BNE.S 

0FE1O 

FERROR 

eFORM93 : 

MOVE.B 

DO,  (A5)-»- 

STORE  "W" 

OR  "L” 

eFORMdS : 

RTS 

eSAOOO : 

BSR 

0FORMPEGD 

BTST 

♦  0,D7 

BEQ.S 

RTS 

0FE1O 

FERROR 

8EA001 : 

BSR 

0FORMREGA 

BTST 

#1,D7 

BEQ.S 

RTS 

0FE1O 

FERROR 

THIS  MODE  NOT 

ALLOWED 

eEAOlO: 

MOVE.B 

♦  '  (A6)  + 

BSR 

0FORMREGA 

MOVE.B 

♦  M'/  (A6)  + 

BTST 

#2,D7 

BEQ.S 

RTS 

0FE1O 

FERROR 

THIS  MODE  NOT 

ALLOWED 

6EA011: 

MOVE.B 

♦  '  (A6)  + 

BSR 

0FORMREGA 

MOVE.B 

(A6)+ 

MOVE.B 

♦  '+^  (A6)  + 

BTST 

#3,D7 

BEQ.S 

0FE1O 

FERROR 

THIS  MODE  NOT 

ALLOWED 

0EAO11RTS 

:RTS 

0EA1OO: 

MOVE.B 

(A6)  + 

MOVE.B 

♦  '  (A6)  + 

BSR 

0FORMREGA 

MOVE.B 

*')\  (A6)  + 

BTST 

#4,D7 

BNE 

0EAO11RTS 

0FE1O; 

BRA 

0FERROR 

THIS  MODE 

NOT  ALLOWED 

/*  A4  -  POINTER  TO  FIRST  WORD 

D3  -  OFFSET  TO  EXTENSION 
D4  -  VALUE  TO  PROCESS 
D7  -  MODES  ALLOWED  MASK 

QEA:  MOVE.L  D4,D0 

LSR.W  #3, DO 

AND.W  #0X7, DO 

BEQ  QEAOOO 

CMP.B  #1,D0 

BEQ  GEAOOl 

CMP.B  #2, DO 

BEQ  0EAO1O 

CMP.B  #3, DO 

BEQ  QEAOll 

CMP.B  #4, DO 

BEQ  @EA100 
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CMP.B  #5, DO 

BEQ.S  @EA101 

CMP.B  #7,00 

BEQ  eEAlll 


/* 

f* 


*/ 


eEAllOS: 

0EA11O7: 


eEA1109: 


EXTENSION  WORD 

BIT  5432109876543210 

0 . 

1 . 

.RRR . 

_ 0 . 

_ 1 . 

. 000 . 

. DDDDDDDD 

EAllO 


BTST 

BEQ 

MOVE.B 

LSL.L 

LSL.L 

MOVE.B 

AND.W 

BNE 

MOVE.B 

LSL.L 

LSL .  L 

MOVE.B 

EXT.W 

EXT.L 

BSR 

MOVE.B 

BSR 

MOVE.B 

MOVE.B 

ASR.B 

BPL.S 

BSR 

BRA.S 

BSR 

MOVE.B 

MOVE.B 

LSL.L 

LSL.L 

MOVE.B 

MOVE.B 

BTST 

BEQ.S 

MOVE.B 

MOVE  3 


#6,D7 

0FE1O 

0  (A4,D3) ,D1 

#4,D1 

#4,D1 

1 (A4,D3) ,D1 
♦0X0700, D1 
@FE10 

0  (A4,D:;')  ,D0 
#4, DO 
#4, DO 

1 (A4,D3) ,D0 

DO 

DO 

0HEX2DEC 

♦  '  (',  (A6)  + 
GFORMREGA 

r  r ,  (A6)  + 

0  (A4,D3) ,D4 
#4,D4 
0EA11O5 
0FORMREGA 
0EA11O7 
0FORMREGD 
(A6)  + 

0  (A4,D3) ,D4 
#4,D4 

♦  4,D4 

1 (A4,D3) ,D4 
#'W'  ,D0 
#11, D4 
0EA11O9 
#'L',D0 
DO,  (A6)  + 


V 


DATA  REGISTER 
ADDRESS  REGISTER 
REGISTER 

SIGN  EXT.,  LON  ORDER  INT.  IN  INDEX  REG 
LONG  VALUE  IN  INDEX  REGISTER 

DISPLACEMENT  INTEGER 

ADDRESS  REGISTER  INDIRECT  WITH  INDEX 


FERROR  This  MODE  NOT  ALLOWED 


FERROR  BITS  10-8  MUST  BE  ZERO 
DO  -  DISPLACEMENT 


DECIMAL 

( 

XX  (A0 
XX (A0, 


XX(A0,X0 . 
D4  -  R0 


L 
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MOVE.B  #')S(A6)+  ; . ) 

ADD.L  #2,D3 

RTS 

ADDRESS  REGISTER  INDIRECT  WITH  DISPLACEMENT  */ 


0EA1O1: 

BTST 

♦  5,D7 

BEQ.S 

gFEll 

MOVE.B 

0  (A4,D3)  ,D0 

LSL.L 

#4, DO 

LSL.L 

♦  4, DO 

MOVE.B 

1  (A4,D3)  ,D0 

EXT .  L 

DO 

BSR 

QHEX2DEC 

ADD.L 

#2,D3 

BRA 

@EA010 

/* 

111000 

*/ 

eEAlll : 

111001 

111010 

111011 

111100 

AND.W 

♦  7,D4 

BNE.S 

0EA1112 

BTST 

♦  7,D7 

BEQ.S 

0FE11 

MOVE.B 

0  (A4,D3)  ,D0 

LSL.L 

♦  4, DO 

LSL.L 

*4, DO 

MOVE.B 

1  (A4,  D3)  ,D0 

EXT.L 

DO 

MOVE.B 

♦  (A6)  + 

BSR 

0PNT8HX 

ADD.L 

♦  2,D3 

eEA1112: 

RTS 

CMP.D 

#1,D4 

BNE.S 

0EA1313 

BTST 

#b,d; 

BEQ.S 

0FE11 

MOVE.B 

#'$',  (A6)  + 

MOVE .L 

0  <A4,D3) ,D0 

BSR 

@PNT8HX 

/* 

-  MOVE.B 

(A6) 

/* 

-  MOVE.B 

♦  'L'  ,  (A6) 

ADD.L 

♦  4,D3 

0EA1113: 

RTS 

CMP.B 

#2,D4 

BNE.S 

@EA1114 

BTST 

#9,D7 

BNE.S 

@EA1113A 

101000  DIS(A0) 

FERROR  THIS  MODE  NOT  ALLOWED 


DECIMAL 

SIZE 


ABSOLUTE  SHORT 
ABSOLUTE  LONG 

PROGRAM  COUNTER  WITH  DISPLACEMENT 
PROGRAM  COUNTER  WITH  INDEX 
IMMEDIATE  OR  STATUS  REG 


FERROR  THIS  MODE  NOT  ALLOWED 
111000  ABSOLUTE  SHORT 


SIGN  EXTENDED  VALUE  1,3 

SIZE  +  2 


FERROR  THIS  MODE  NOT  ALLOWED 
HEX 

111001  ABSOLUTE  LONG 

FORCE  LONG  @FORMAT  1,3  */ 

IE  .L  1,3  */ 
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0FE11: 

eEAlllSA: 


eEA1114 : 

/* 

/* 


BRA  @FERROR 

MOVE.B  0(A4,D3),D0 

^SL.L  #4, DO 

LbL.L  *4,00 

MOVE.B  1(A4,D3),D0 

EXT.L  DO 

iU^D.L  A2,D0 

ADD.L  #2, DO 

MOVE.B  #'$',(A6)  + 

BSR  GPNTBHX 

MOVE.L  # (0X29435028) , DO 

BSR  0SCHR 

ADD.L  #2,D3 

RTS 

CMP.B  #3,D4 

BNE  0EA1115 

PROGRAM  COUNTER  WITH  INDEX 
5432109876543210 

0 . 

1 . 

.  XXX . 

_ 0 . 

. . IN  INDEX  REGISTER 

.  .  .  .1 . 

. 000 . 

. xxxxxxxx 


THIS  MODE  NOT  ALLOWED 

111010  PC+DISPLACEMENT  DESTINATION (PC) 


HEX  "$"  1,3 

DESTINATION 

(PC)  ')CP(' 

STORE  WORD 
SIZE 


DESTINATION (PC, R@ .X)  */ 

SECOND  WORD 
DATA  REGISTER 
ADDRESS  REGISTER 
REGISTER 

SIGN-EXTENDED,  LOW  ORDER  WORD  INTEGER 
LONG  VALUE  IN  INDEX  REGISTER 
DISPLACEMENT  INTEGER 


BTST 

#10, D7 

BEQ 

0FE11 

FERROR 

THIS 

MODE  NCr  ASLLOWED 

MOVE.B 

0 (A4,D3) ,D1 

LSL.L 

#4,D1 

LSL.L 

#4,D1 

MOVE.B 

1 (A4,D3) ,D1 

AND.W 

#0X0700, D1 

BNE 

0FE11 

FERROR 

BITS  10 

-8  MUST  BE  ZERO 

MOVE.B 

1 (A4,D3) ,D0 

111100 

DESTINATION (PC, R@ . X) 

EXT.W 

DO 

EXT.L 

DO 

ADD.L 

A2,D0 

ADD.L 

#2, DO 

MOVE.B 

#'$',  (A6)  + 

HEX  ”$" 

1,3 

BSR 

0PNT8HX 

r DESTINATION 

1,3 

MOVE.L 

#(0X2C435028)  ,D0 

' , CP  ( ' 

BSR 

0SCHR 

DES (PC, 

MOVE.B 

0 (A4,D3) ,D4 

LSL.L 

#4,D4 

LSL.L 

#4,D4 

MOVE.B 

1  (A4,D3)  ,D4 

ROL.W 

#4,D4 
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BTST 

#3,D4 

BEQ.S 

0EAF25 

BSR 

0FORMREGA 

BRA.S 

0EAF27 

0EAF25 : 

BSR 

0FORMREGD 

@EAF27 : 

MOVE.B 

♦  '  (A6)  + 

MOVE.B 

0<A4,D3)  ,D4 

LSL.L 

#4,D4 

LSL.L 

#4,D4 

MOVE.B 

1(A4,D3)  ,D4 

MOVE.W 

#(0X4C57) ,D0 

BTST 

#11, D4 

BEQ.S 

0EAF35 

LSR.W 

♦  8, DO 

@EAF35 ; 

MOVE.B 

DO,  (A6)  + 

MOVE.B 

#'  )  ',  <A6)  + 

ADD.L 

RTS 

#2,D3 

/* 

BIT  5432109876543210 

111100 

*/ 

0EA1115: 

CMP.B 

#4,D4 

BNE 

0FE11 

BTST 

#11, D7 

BEQ 

0FE11 

MOVE.B 

#'#',  (A6)  + 

MOVE.B 

-1(A5) ,D1 

CMP.B 

#'L',D1 

BEQ.S 

0EA11155 

MOVE.B 

0  (A4,D3)  ,D0 

LSL.L 

#4, DO 

LSL.L 

#4, DO 

MOVE.B 

1 (A4,D3) ,D0 

CMP.B 

#'B',D1 

BNE.S 

0EA11153 

!* 

BYTE  SIZE, 

DATA  ALLOWED 

0000  0000 

xxxx  xxxx 

1111  1111 

ixxx  xxxx 

*/ 

MOVE.L 

D0,D1 

LSR.W 

#8,D1 

BEQ.S 

0EA11153 

MOVE.L 

D0,D1 

ASR.W 

#7,D1 

ADD.W 

#1,D1 

BNE 

0FE11 

DES  (PC,R0 
DES(PC,R0. 


'LW' 


;DES  (PC,R0.X 
;DES(PC,R@  .X) 

# 

FIRST  WORD  #<IMMEDIATE> 

♦ 

9 

t FERROR 

/FERROR  THIS  MODE  NOT  ALLOWED 
•IMMEDIATE 

9 

;  LONG 

9 

r 

9 

9 

; . WORD 


FERROR 
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0EA11153:  EXT.L  DO 

BSR  eHEX20EC 

ADD.L  #2,D3 

RTS 


eEAlllSS:  MOVE.L 

0(A4,D3) ,D0 

BSR 

@HEX2DEC 

ADD.L 

#4,D3 

RTS 

SIZE 


0MOVEMS : 

MOVE.B 

(A5)-»- 

MOVE.W 

♦(0X4C57) ,D0 

BTST 

#6,D4 

BEQ.S 

0MOVEMS2 

LSR.W 

♦  8, DO 

0MOVEMS2 : 

MOVE.B 

RTS 

DO,  (A5)  + 

PERIOD 

'LW' 


SIZE 


/*  MOVEM  - 

SMOVEMR:  MOVE.W 

MOVE.L 
MOVE.L 
SUB.L 
MOVE.L 
MOVE.W 

0MOVEMR11:BTST 

BEQ.S 

CMP.B 

BNE.S 

0MOVEMR33:MOVE.B 

MOVE.B 

MOVE.B 

ADD.L 

BRA.S 

0MOVEMR44:CMP.B 

BEQ 

CMP.B 

BEQ 

MOVE.B 

MOVE.B 

MOVE.B 

BRA.S 

0MOVEMR77:CMP.B 

BEQ.S 

CMP.B 

BEQ.S 

CMP.B 

BEQ.S 

ADD.L 

0MOVEMR7  9 -.MOVE.B 


REGISTER  EXPANSION 

2 (A4) ,D2 

#'  ',D0 

#'/',D7 

#1/A6 

#'0',D5 

#(0X4144) ,D4 

D1,D2 

0MOVEMR77 

(A6) ,D0 

0MOVEMR44 

D4,  1  (A6) 

D5,  2 (A6) 

#'-S3(A6) 

#3,A6 
0MOVEMR88 
*'f', (A6) 

@MOVEMR33 
(A6) ,D7 
0MOVEMR33 
D4,  1  (A6) 

D5,2(A6) 

4'-',3(A6) 
0MOVEMR88 
*'f', (A6) 

@MOVEMR88 
(A6) ,D0 
0MOVEMR88 
1  (A6)  ,D0 
@MOVEMR79 
#3,A6 
D7,  (A6) 


*/ 

;D2  -  SECOND  WORD 
;D0  -  SPACE 
;D7  -  / 

/ADJUST  STORE  POINTER 
;D5  -  REGISTER  # 

;D4  -  REG  CLASS  'AD' 

/BIT  RESET 
/BIT  SET 
/NOT  SPACE 
/REG  TYPE 
/REG  # 


COMMA  SEPARATOR 
/  SEPARATOR 

REG  TYPE 
REG  # 

-  SEPARATOR 

COMMA 

SPACE 

SPACE 

/  SEPARATOR 
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D1  -  BIT  POSITION 


eMOVEMR88:ADD.L 

ADD.L 

CMP.B 

BNE 

CMP.B 

BEQ.S 

CMP.B 

BEQ.S 

ADD.L 

MOVE.B 

0MOVEMR94;MOVE.B 

LSR.W 

BNE 

i'lOVE .  B 
RTS 

0DECODE :  MOVE . L 
MOVE.L 
MOVE.L 
MOVE.L 
MOVE.L 
LINK 
MOVEM.L 
LEA 
MOVE.L 
MOVE.L 
MOVE.L 

0DEC311:  MOVE.B 
SUB.L 
BNE 


#1,D5 
D6,D1 
#'8',D5 
0MOVEMR11 
(A6)  ,D0 
@MOVEMR94 
1  (A6)  ,D0 
0MOVEMR94 

♦  3,A6 
D7,  (A6) 

#'0SD5 

♦  8,D4 
@MOVEMRll 
DO,  (A6) 

20  (SP)  ,A5 
16  (SP) ,D0 
12  (SP) ,D1 
8(SP) ,D2 
4(SP) ,A2 
Al,#-16 

D0-D2/A4, -16(A1) 

-16 (Al) ,A4 

A5,A3 

#80, DO 

A3,A6 

#'  ',  (A6)  + 

#1,D0 

@DEC311 


SPACE 

SPACE 


/  SEPARATOR 
RESET  REG  TO  ZERO 
CHANGE  REG  TYPE 
MORE 
SPACE 


CREATE  A  FRAME  FOR  THE 
CODE  AND  ITS  PC.  A4 
POINTS  TO  THE  CODE. 

A3  ■=  START  OF  OUTPUT  BUFFER 


SPACE  FILL  BUFFER 


/*  CHECK  FOR 

MOVE.W 
LEA 
MOVE.L 
ADD.L 
0DEC4O4:  CMP.W 

BEQ.S 
CMP.L 
BNE 


KNOWN  ILLEGAL  CODES 
(A4) ,D0 
0KI,A5 
A5,A6 
#2,A6 
(A5)+,D0 
@FE12 
A6,A5 
0DEC4O4 


*/ 

#(@KIEND-@KI)=2 
FERROR  ILLEGAL  CODE 


1,4 


/*  LOOK  FOR 

MOVEM.L 
MOVE.L 
LEA 
LEA 

0DEC411:  MOVE.B 

LSL.L 
MOVE.B 
MOVE.B 
LSL.L 


MATCH  OF  OP -CODE 
D1-D2, - (SP) 
#8,D2 
@TBL, A5 
@TBLE,A6 
(A4) ,D0 
D2,D0 
1 (A4) ,D0 
(A5)+,D1 
D2,D1 


*/ 

/SAVE  D1,D2 
/8=SHIFT  CNT 

;A5  =  POINTER  TO  DECODE  TABLE 
;A6  =  POINTER  TO  END  OF  TABLE 
/FIRST  BYTE 

/FIRST  WORD 
/FIRST  BYTE 
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MOVE.B 

(A5)+,D1 

AND.W 

D1,D0 

MOVE.B 

(A5)+,D1 

LSL.L 

D2,D1 

MOVE.B 

(A5)+,D1 

CMP.W 

D1,D0 

BEQ.S 

0DEC425 

ADD.L 

#4,  AS 

CMP.L 

A6,A5 

BNE 

0DEC411 

MOVEM.L 

(SP)+,D1-D2 

@FE12: 

BRA 

0FERROR 

0DEC425: 

MOVEM . L 

(SP)+,D1-D2 

CLR.L 

D6 

MOVE.B 

(A5)+,D6 

LSL.L 

#4,D6 

LSL.L 

#4,D6 

MOVE.B 

(A5)+,D6 

CLR.L 

D7 

MOVE.B 

(A5)+,D7 

ADD.L 

#1,A5 

/* 

MOVE  OP -CODE  TO  BUFFER 

LEA 

@OPCTBL,AO 

@DEC510: 

TST 

D7 

BEQ.S 

@DEC530 

0DEC515: 

TST.B 

(A0)  + 

BPL 

@DEC515 

SUB.L 

#1,D7 

BRA 

@DEC510 

0DEC53O: 

MOVE.L 

♦30, DO 

LEA.L 

0(A3,D0)  ,A5 

0DEC535: 

MOVE.B 

(A0)+,D0 

BCLR 

#7, DO 

BNE.  S 

0DEC537 

MOVE.B 

DO,  (A5)  + 

BRA 

@DEC535 

@DEC537; 

MOVE.B 

DO, (A5) + 

/* 

CALCULATE 

GOTO  AND  GO 

MOVE.L 

#2,D3 

LEA 

@PGM, AO; 

ADD.L 

D6,  AO; 

MOVE.L 

#39, DO 

LEA.L 

0  (A3,D0)  ,A6 

MOVE .W 

(A4) ,D4 

MOVE.B 

#',',D5 

MOVE .W 

#0X1FD,D7 

JMP 

(AO) 

/* 

A4  =  POINTER  TO  DATA  I' 

FIRST  WORD 
MASK 

FIRST  BYTE 

FIRST  WORD 

FOUND  MATCH 
UPDATE  POINTER 

MORE  TABLE 
RESTORE  D1,D2 

ILLEGAL  INSTRUCTION  1,4 

RESTORE  D1,D2 

D6  =  (GOTO  OFFSET) /4  ILK  BYT^ 


D6  =  (GOTO  OFFSET) /4  2ND  BYTE 
D7  -  INDEX  TO  OP-CODE 


*/ 


AT  INDEX 

MOVE  THROUGH  FIELD 


.1,4 

A5  =  STORE  POINTER  OP-CODE  1,4 


END  OF  MOVE 


*/ 

;D3=  SIZE 


1,4 

A6  =  POINTER  FOR  OPERAND  1,4 

D4  =  FIRST  WORD 

D5  -  CONTAINS  ASCII  COMMA 

D7  =  DATA  ALTERABLE  MODES  ALLOWED 


CREATED  BY  ^ LINK  Al,  .  . 
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A5  =  POINTER  STORE  OP -CODE 
A6  -  POINTER  STORE  OPERAND 
D3  =  SIZE  -  2  BYTES 
D4  =■  FIRST  WORD 

D7  »  ADDRESS  MODES  ALLOWED  (OXIFD)  DATA  ALTERABLE 


*/ 

0COMMON4 : 

ADD.L 

♦  2,D3 

;SIZE  -  4 

0COMMON : 

MOVE.L 

D3,D6 

;D6  »  SIZE 

MOVE.B 

#'  '  ,  (A6)  + 

; SPACE  AS  LAST  CHAR 

MOVE.L 

A6,A5 

/SAVE  END  OF  BUFFER  POINTER 

MOVE.L 

#3, DO 

;l/4 

LEA.L 

0  (A3,D0) ,  A6 

;l/4 

@COMMON35 

iMOVE.W 

(A4)+,D0 

/GET  NEXT  WORD  OF  DATA. 

ADD.L 

#2,A2 

/ADJUST  PROG  COUNTER. 

BSR 

0PNT4HX 

/FORMAT  DATA.  (A6) + 

SUB.B 

#2,D3; 

9 

BNE 

@COMMON35; 

9 

MOVE.L 

A5,  A6 

/A6  «  RESTORE  END  POINTER 

MOVE.L 

A3,  A5 

/A5  -  BEGINNING  OF  BUFFER 

MOVE.L 

A2,  A4 

/MOVE  THE  UPDATED  PC 

UNLK 

A1 

/TO  A4  AND  UNDO  FRAME. 

MOVE.L 

A2,4 (SP) 

9 

RTS 

9 

/* 

ILLEGAL 

INSTRUCTION 

*/ 

@FERROR : 

MOVE.L 

#30, DO 

;  .1,4 

LEA.L 

0 (A3,D0) ,  A6 

;i,4 

LEA 

@MSG111,A5 

9 

@FERROR35 

:  MOVE . B 

(A5)+,D0 

f 

9 

CMP  .B 

#4, DO 

9 

BEQ.S 

@FERROR39 

• 

9 

MOVE.B 

DO,  (A6)  + 

9 

BRA 

@FERROR35 

9 

0FERROR39 

;  MOVE . W 

(A4)  ,D0 

9 

BSR 

@PNT4HX 

9 

MOVE . L 

#2,D3  ;SIZE 

9 

BRA 

0 COMMON 

9 

0MSG111 : 

DC.B 

'W'  ,  'O'  ,  'R'  f  'D' ; 

9 

DC.B 

f  r  f  9  9  r  r  r  * 

9  9  9  9 

9 

DC.B 

'$',4; 

9 

0KI: 

DC.W 

0X4AFB 

/KNOWN  ILLEGAL  CODES 

0KIEND : 

;  \1 

MASK 

;  \2 

OP -CODE 

PATTERN 

;  \3 

GOTO  OFFSET 

;  \4 

INDEX  TO  OP -CODE 

0TBL: 

DC.L 

0XFEC0E6C0 

/RO 

0ISH1: 

DC.W 

0X0000 

9 
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DC.B 

DC.L 

@ISH2: 

DC.W 

DC.B 

DC.L 

@ISH3: 

DC.W 

DC.B 

DC.L 

eiSH4: 

DC.W 

DC.B 

DC.L 

eiSH5: 

DC.W 

DC.B 

DC.L 

@ISH6: 

DC.W 

DC.B 

DC.L 

eiSH7: 

DC.W 

DC.B 

DC.L 

0ISH8: 

DC.W 

DC.B 

DC.L 

@F10EX1; 

DC.W 

DC.B 

DC.L 

eF124: 

DC.W 

DC.B 

DC.L 

@F10EX3 : 

DC.W 

DC.B 

DC.L 

0F91: 

DC.W 

DC.B 

DC.L 

0F81: 

DC.W 

DC.B 

DC.L 

0F71: 

DC.W 

DC.B 

DC.L 

@F121 : 

DC.W 

DC.B 

DC.L 

0F6D1 : 

DC.W 

DC.B 

DC.L 

0F6D2: 

DC.W 

DC.B 

DC.L 

56 

0XFEC0E4C0 

0X000 

57 

0XFEC0E2C0 

0X0000 

55 

OXFECOEOCO 

0X0000 

54 

0XFO18E018 

0X0000 

56 

0XF018E010 

0X0000 

57 

0XF018E008 

0X0000 

55 

0XF018E000 

0X0000 

54 

OXFOCODOCO 

0X0000 

4 

0XF130D100 

0X0000 

53 

OXFOOODOOO 

0X0000 

4 

0XF1F8C188 

0X0000 

50 

0XF1F8C148 

0X0000 

50 

0XF1F8C140 

0X0000 

50 

OXFIFOCIOO 

0X0000 

49 

OXFICOCICO 

0X0000 

48 

OXFICOCOCO 

0X0000 

47 

OXFOOOCOOO 


ROX 

LS 

AS 

RO 

ROX 

LS 

AS 

ADD  <EA>  A@ 

ADDX 

ADD 

EXG 

EXG 

EXG 

ABCD 

MULS 

MULU 
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0F1O1: 

DC.W 

0X0000 

DC.B 

2 

DC.L 

OXFOCOBOCO 

@F10EX4; 

DC.W 

0X0000 

DC.B 

6 

DC.L 

0XF138B108 

0F12A1 : 

DC.W 

0X0000 

DC.B 

46 

DC.L 

OXFIOOBIOO 

@F102 : 

DC.W 

0X0000 

DC.B 

5 

DC.L 

OXFOOOBOOO 

@F10EX5: 

DC.W 

0X0000 

DC.B 

6 

DC.L 

0XFOC09OCO 

0F1OEX6; 

DC.W 

0X0000 

DC.B 

44 

DC.L 

0XF1309100 

0F122 : 

DC.W 

0X0000 

DC.B 

45 

DC.L 

OXF0009000 

0F1OEX2: 

DC.W 

0X0000 

DC.B 

44 

DC.L 

0XF1F08100 

0F123: 

DC.W 

0X0000 

DC.B 

43 

DC.L 

0XF1C081C0 

@F6D3: 

DC.W 

0X0000 

DC.B 

42 

DC.L 

OXF1C08OCO 

@F6D4 • 

DC.W 

0X0000 

DC.B 

41 

DC.L 

OXF0008000 

0F1O3; 

DC.W 

0X0000 

DC.B 

40 

DC.L 

OXF1007000 

0IMVQ1 ; 

r  ..W 

0X0000 

L  ..B 

39 

.  L 

OXFF006100 

@IBSR1 ; 

:jC.W 

0X0000 

DC.B 

51 

DC.L 

OXFF006000 

0IBSR2 : 

DC.W 

0X0000 

DC.B 

65 

DC.L 

0XF0006000 

@ICC1 : 

DC.W 

0X0000 

DC.B 

38 

DC.L 

0XF0F850C8 

0IDBCC1; 

DC.W 

0X0000 

DC.B 

37 

AND 

CMP  <EA>  A0 

CMPM 

EOR 

CMP 

SUB  <EA>  A8 

SUBX 

SUB 

SBCD 

DIVS 

DIVU 

OR 

MOVEQ 

BSR 

BRA  1  3 

B 

DB 
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DC.L 

0XF0C050C0 

eSCCl:  DC.W 

0X0000 

DC.B 

36 

S 

DC.L 

0XF1005100 

01QUICK1:  DC.W 

0X0000 

DC.B 

35 

SUBQ 

DC.L 

0XF1005000 

0IQUICK2:  DC.W 

0X0000 

DC.B 

34 

ADDQ 

DC.L 

0XF1C041C0 

0F6A1;  DC.W 

0X0000 

DC.B 

33 

LEA 

DC.L 

0XF1C04180 

@F6D5:  DC.W 

0X0000 

DC.B 

32 

CHK 

DC.L 

0XFFC04EC0 

0F11SL1:  DC.W 

0X0000 

DC.B 

31 

JMP 

1 

4 

DC.L 

0XFFC04E80 

0F11SL2:  DC.W 

0X0000 

DC.B 

30 

JSR 

1, 

4 

DC.L 

0XFFFF4E77 

0SCOMMON1:DC.W 

0X0000 

DC.B 

29 

RTR 

DC.L 

0XFFFF4E76 

@SC0MM0N2:DC.W 

0X0000 

DC.B 

28 

TRAPV 

DC.L 

0XFFFF4E75 

0SCOMMON3:DC.W 

0X0000 

DC.B 

27 

RTS 

DC.L 

0XFFFF4E73 

0SCOMMON4:DC.W 

0X0000 

DC.B 

26 

RTE 

DC.L 

0XFFFF4E72 

0ISTOP1:  DC.W 

0X0000 

DC.B 

25 

STOP 

DC.L 

0XFFFF4E71 

0SCOMMON5:DC.W 

0X0000 

DC.B 

24 

NOP 

DC.L 

0XFFFF4E70 

0SCOMMON6;DC.W 

0X0000 

DC.B 

23 

RESET 

DC.L 

0XFFF84E68 

0IMVFUSP1:DC.W 

0X0000 

DC.B 

60 

‘MOVE  FROM 

USP 

DC.L 

0XFFF84E60 

@IMVTUSP1:DC.W 

0X0000 

DC.B 

60 

MOVE  TO 

USP 

DC.L 

0XFFF84E58 

0F51:  DC.W 

0X0000 
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DC.B 

22 

DC.L 

0XFFF84E50 

0ILINK1: 

DC.W 

0X0000 

DC.B 

21 

DC.L 

0XFFF04E40 

eF41: 

DC.W 

0X0000 

DC.B 

20 

DC.L 

0XFF804C80 

0IMVMTR1: 

DC.W 

0X0000 

DC.B 

15 

DC.L 

0XFFC04AC0 

0F1A1 : 

DC.W 

0X0000 

DC.B 

19 

DC.L 

0XFFn04A00 

eFll : 

DC.W 

OXOOCD 

DC.B 

18 

DC.L 

0XFFF848C0 

@F31 : 

DC.W 

0X0000 

DC.B 

17 

DC.L 

0XFFF84880 

0F32  : 

DC.W 

0X0000 

DC.B 

16 

DC.L 

0XFF804880 

@IMVMFR1 : 

DC.W 

0X0000 

DC.B 

15 

DC.L 

0XFFF84840 

0F33: 

DC.W 

0X0000 

DC.B 

14 

DC.L 

0XFFC04840 

0F111: 

DC.W 

0X0000 

DC.B 

13 

DC.L 

0XFFC04800 

@F1A2; 

DC.W 

0X0000 

DC.B 

12 

DC.L 

0XFFC046C0 

0IMVTSR1 : 

DC.W 

0X0000 

DC.B 

59 

DC.L 

0XFF004600 

@F12  : 

DC.W 

0X0000 

DC.B 

11 

DC.L 

0XFFC044C0 

0IMVTCCR1 

:DC.W 

0X0000 

DC.B 

59 

DC.L 

0XFF004400 

@F13  : 

DC.W 

0X0000 

DC.B 

10 

DC.L 

0XFF004200 

0F14  : 

DC.W 

0X0000 

DC.B 

9 

DC.L 

0XFFC040C0 

; UNLINK 

f 

• 

;LINK 

f 

;TRAP 

f 

* 

;MOVEM  FROM  REGISTERS 

t 

» 

/TAS 

f 

f 

;TST 

f 

•EXT.L 

/ 

; EXT . W 

• 

f 

fHOVEA  TO  REGISTERS 

r 

• 

;SWAP 

« 

;PEA 

f 

* 

;NBCD 

f 

;MOVE  TO  SR 

f 

;NOT 

f 

;MOVE  TO  OCR 

f 

;NEG 

f 

;CLR 

f 
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01MVFSR1 : 

0F15: 

0IMOVE1; 

0IMOVE2: 

0IMOVE3: 

0IMMED1: 

0IMMED2: 

0IMMED3: 

0IMMED4: 

0IMMED5t 

@IMMED6: 

©IMOVEPl : 

@ISETS1; 

@ISETS2; 

0ISETS3: 

@ISETS4 : 
@ISETD1 : 


DC.W 

0X0000 

DC.B 

59 

DC.L 

OXFP004000 

DC.W 

0X0000 

DC.B 

8 

DC.L 

0XF0003000 

DC.W 

0X0000 

DC.B 

59 

DC.L 

0XF0002000 

DC.W 

0X0000 

DC.B 

60 

DC.L 

OXFOOOIOOO 

DC.W 

0X0000 

DC.B 

58 

DC.L 

OXFFOOOCOO 

DC.W 

0X0000 

DC.B 

6 

DC.L 

OXFFOOOAOO 

DC.W 

0X0000 

DC.B 

5 

DC.L 

0XFF000600 

DC.W 

0X0000 

DC.B 

4 

DC.L 

0XFF000400 

DC.W 

0X0000 

DC.B 

3 

DC.L 

0XFF000200 

DC.W 

0X0000 

DC.B 

2 

DC.L 

OXFFOOOOOO 

DC.W 

0X0000 

DC.B 

1 

DC.L 

0XF13801C8 

DC.W 

0X000 

DC.B 

0 

DC.L 

0XFFC008C0 

DC.W 

0X0000 

DC.B 

64 

DC.L 

0XFFC00880 

DC.W 

0X0000 

DC.B 

63 

DC.L 

0XFFC00840 

DC.W 

0X0000 

DC.B 

62 

DC.L 

0XFFC00800 

DC.W 

0X0000 

DC.B 

61 

DC.L 

OXFICOOICO 

DC.W 

0X0000 

DC.B 

64 

MOVE . W  FROM  SR 

NE6X 

MOVE.W 

MOVE.L 

MOVE.B 


CMP  ♦ 

EOR  # 

ADD  ♦ 

SUB  ♦ 

AND  ♦ 

OR  # 


MOVER 

BSET 

BCLR 

BCHG 

BTST 

BSET 
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DC.L 

0XF1C00180 

eiSETD2: 

DC.W 

0X0000 

DC.B 

63 

BCLR 

DC.L 

0XF1C00140 

(JISETD3: 

DC.W 

0X0000 

DC.B 

62 

BCH6 

DC.L 

OXFICOOIOO 

eiSETD4: 

DC.W 

0X0000 

DC.B 

61 

BTST 

6TBLE : 
0OPCTBL : 

DC.B  'M' , '0' , 'V' , 

DC.B  128  +  'P' ,  "O' ,  128+'R' , ' '  ; 

DC.B  "N',128+"D','S',"U'  ; 

DC.B  128+'B' ,  "A"  ,  "D" ,  128+"  ; 

DC.B  'E","0',128+"R","C"  ; 

DC.B  "M"  ,  128  +  'P"  , 'M' ,  "0"  ; 

DC.B  ' V' , 128  +  'E' , "N" ,  "E"  ; 

DC.B  'G' ,  128  +  "X"  ,  "C"  ,  "L"  ; 

DC.B  128+'R" , 'N' , 'E' ,128+'G"  ; 

DC.B  'N','0',128+'T',"N"  ; 

DC.B  'B' , "C" , 128+"D' , "P"  ; 

DC.B  'E",'A"," .',128+"L"  ; 

DC.B  "  S"  , "  W' ,  "A"  , 'P'  ; 

DC.B  " .',128+'W",'M',"0"  ; 

DC.B  "V"  ,  "E"  ,128+'M' ,"E"  / 

DC.B  .",128+'W"  ; 

DC.B  'F/ , 'X' ,  "T"  ,  " 

DC.B  128+'L","T","S',128+'T' ; 

DC.B  'T' ,  "  A' , '  S' ,  ' 

DC.B  128+'B' , 'T' , 'R' , 'A'  ; 

DC.B  128+'P' , 'L' ,  '  I' , 'N'  ; 

DC.B  128+'K' , 'U' , 'N' , 'L' 

DC.B  128+'K' , 'R' , 'E' , 'S'  ; 

DC.B  'E' ,  128+'T' , 'N' , '0' 

DC.B  128+'P','S','T','0'  ; 

DC.B  128+'P' , 'R' , 'T' ,128+'E' ; 

DC.B  'R','T',128  +  'S','T' 

DC.B  'R' , 'A' , 'P' ,  128+'V' 

DC.B  'R','T',128  +  'R','J'  ; 

DC.B  'S' ,128+'R' ,' J','M'  ; 

DC.B  128+'P','C','H','K' 

DC.B  ' .',128+'W','L','E'  ; 

DC.B  'A','  .',128  +  ' L', 'A'  ; 

DC.B  'D' , 'D' ,  128+'Q' , 'S'  ; 

DC.B  'U','B',128  +  'Q',128+'S'; 

DC.B  'D' ,  128  +  'B' ,  128+'B' , 'M' ; 

DC.B  '0' , 'V' , 'E' , 'Q' 

DC.B  ' .',128+'L','0',128+'R'; 
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/* 

/* 

/* 

ePNTSHX: 


/* 

@PNT6HX: 


/* 

ePNT4HX: 


/* 

@PNT2HX: 


DC.B 

'D'  , » I'  ,  'VS 

DC.B 

'  .S128+'WS'DS'I' 

DC.B 

'VS'SS'  .S128+'M' 

DC.B 

"SS'BS'CS128+'D' 

DC.B 

'SS'U'rl28+'BS'S' 

DC.B 

'US'BS128+'XS'C' 

DC.B 

'MS'PS128+'MS'M' 

DC.B 

'US'L'»'US' 

DC.B 

128+'W'  ,  ^MS  'US  'L' 

DC.B 

'SS'  .',128+'WS'A' 

DC.B 

'BS'CS128+'DS'E' 

DC.B 

»XS128+'GS'BS'S' 

DC.B 

128+'R'  ,  'N' ,  'U' 

DC.B 

128+'L'  ,  'A' ,  "D" ,  'D' 

DC.B 

128+'XS'AS128+'SS'] 

L'; 

DC.B 

128+'  SS  '  R'  » 128+'  OS  '  R' ; 

DC.B 

'O'  ,  128+'X'  ,  'M' ,  'O' 

DC.B 

'V','E',' .',128+'B' 

DC.B 

'M'  ,  'O'  ,  'V'  ,  'E' 

DC.B 

'  .',128+'W','M','0' 

DC.B 

'V'  ,'E'  .'  ,128+'L' 

DC.B 

'B','T','S',128+'T' 

DC.B 

'B'  ,'C'  ,'H'  ,128+'G' 

DC.B 

'B'  ,  'C'  ,  'L'  ,  128+'R' 

DC.B 

'B'  ,  'S'  ,  'E'  ,128+'T' 

DC.B 

'B','R',128+'A','E' 

PRINT  HEX  ROUTINES  */ 

PRINT  8 

HEX  CHARACTERS  */ 

D0,D1,D2 

DESTROYED  */ 

SWAP 

DO 

FLIP  REG  HALVES 

BSR.S 

0PNT4HX 

DO  TOP  WORD 

SWAP 

DO 

NOW  DO  LOWER  WORD 

BRA.S 

@PNT4HX 

PRINT 

6  HEX  CHARACTERS 

SWAP 

DO 

FLIP  REGISTER  HALVES 

BSP. .  S 

0PNT2HX 

SWAP 

DO 

FLIP  BACK  REG  HALVES 

PRINT4  HEX  CHARACTERS  IN  DO.W 

*/ 

MOVE.W 

D0,D1 

;SAVE  IN  TEMP 

ROR.W 

♦  8, DO 

•GET  BITS  15-8  INTO  LOWER  BYTE 

BSR.S 

0PNT2HX 

rPRINT  IT 

MOVE.W 

D1,D0 

fPULL  IT  BACK 

PRINT 

2  HEX  CHARACTERS  IN 

DO.B  */ 

MOVE.W 

D0,D2 

;SAVE  IN  TEMP  REG 

ROXR .  W 

#4, DO 

;FORM  UPPER  NIBBLE 
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BSR.S 

0PUTHEX 

MOVE.W 

D2,D0 

/* 

CONVERT 

DO. NIBBLE  TO  HEX 

ePUTHEX : 

AND.B 

♦0X0P,D0 

OR.B 

♦0X30, DO 

CMP.B 

#0X39, DO 

BLE.S 

0SAVHEX 

ADD 

#7, DO 

eSAVHEX: 

MOVE.B 

RTS 

DO,  (A6)  + 

t* 

PRINT  HEX  (ZERO  SURPRESS) 

ePNTZHX; 

CLR.L 

D4 

MOVE.L 

D0,D1 

BEQ.S 

0PNTZ81 

BPL.S 

0PNTZO 

NEG.L 

D1 

BMI.S 

0PNTZ81 

MOVE.B 

♦  '-',  (A6)  + 

GPNTZO : 

MOVE.L 

#8,D2 

0PNTZ1 : 

MOVE.L 

D1,D0 

MOVE.L 

D2,D3 

SUB.L 

#i,r3 

BEQ.S 

0PNTZ4 

0PNTZ2 : 

ASR.L 

#4, DO 

AND.L 

#0XFFPFFFF,D0 

SUB.L 

♦  1,D3 

BNE 

0PNTZ2 

0PNTZ4 : 

AND.B 

#0XF,D0 

BNE.S 

@PNTZ3 

TST.B 

D4 

BEQ.S 

0PNTZ8 

@PNTZ3 : 

BSR 

0PUTHEX 

MOVE.B 

D0,D4 

0PNTZ8 : 

SUB.L 

#1,D2 

BNE 

0PNTZ1 

TST.B 

D4 

BNE.S 

0PNTZ9 

0PNTZ81 ; 

MOVE.B 

#'0',  (A6)  + 

0PNTZ9: 

RTS 

/* 

CONVERT 

BINARY  TO  DECIMAL 

0HEX2DEC : 

MOVEM . L 

D1-D4/D6-D7, - (A7 

MOVE.L 

D0,D7 

BPL.S 

@HX2DC 

NEG  L 

D7 

BMI.S 

0HX2DC57 

MOVE.B 

(A6)  + 

0HX2DC: 

CLR.W 

D4 

MOVE.L 

#10, D6 

0HX2DCO: 

MOVE . L 

#1,D2 

MOVE.L 

D6,D1 

;PUT  ASCII  INTO  PRINT  BUFFER 
;GET  BACK  FROM  TEMP 
&  PUT  IT  IN  PRINT  BUFFER  *! 

;SAVE  LOWER  NIBBLE 
/CONVERT  TO  AS  .xl 
/SEE  IF  IT  IS>9 

/ADD  TO  MAKE  10->A 
/PUT  IT  IN  PRINT  BUFFER 

9 

*f 

/IS  ZERO  WHEN  SURPRESSING 
/SAVE  IN  TEMP 
/IF  ZERO 

/CHANGE  TO  POSITIVE  VALUE 
/WATCH  OUT  SPECIAL  CASE  0X80000000 
/PUT  SIGN  INTO  BUFFER 
/8  POSSIBLE  CHARACTERS 
/UNSAVE  IT 

/COUNT  DOWN  FROM  HERE 

/BACK  OFF  ONE 

/IF  NO  ROTATE  SKIP  THIS 

/ROTATE  LRIGHT 

/CLEAR  TOP  NIBBLE 


/SAVE  ONLY  NIBBLE 

/SEE  IF  STILL  SURPRESSING 

9 

/PUT  A  HEX  CHAR  IN  BUFFER 
/MARK  AS  NON-SURPRESSING  MODE 
/DO  ANOTHER  CHAR 
• 

/SEE  IF  ANYTHING  PRINTED 

/MOVE  AT  LEAST  ONE  ZERO 

REG  DO  PUT  IN  (A6)  BUFFER  AS  ASCII  */ 
/SAVE  REGISTERS 
/SAVE  IT  HERE 

/CHANGE  TO  POSITIVE 
/SPECIAL  CASE  (-0) 

/PUT  IN  NEG  SIGN 
/FOR  ZERO  SURPRESS 
/COUNTER 
/VALUE  TO  SUB 
/ COUNTER 
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0HX2DC1 : 


@HX2DC2 ; 
0HX2DC22  : 


0HX2DC3: 


0HX2DC4 : 


0HX2DC5 : 


0h:{2DC57  : 
0HX2DC6: 


/* 

/* 

0IS2  : 

} 

} 


SUB.L 

BEQ.S 

MOVE.W 

MULU 

SWAP 

MULU 

SWAP 

ADD.W 

SWAP 

SWAP 

MOVE.W 

SUB.L 

BNE 

CLR.L 

CMP  .L 

BLT.  3 

ADD.L 

SUB.L 

BRA 

TST.B 

BNE.S 

TST.W 

BEQ.S 

ADD  .B 

MOVE.B 

MOVE.B 

SUB.L 

BNE 

TST.W 

BNE.S 

MOVE.B 

MOVEM.L 

RTS 


#1,D1 
0HX2DC2 
D2,D3 
#10, D3 
D2 

#10, D2 

D3 

D3,D2 

D2 

D3 

D3,D2 

#1,D1 

0HX2DC1 

DO 

D2,D7 

0HX2DC3 

#1,D0 

D2,D7 

0HX2DC22 

DO 

0HX2DC4 

D4 

0HX2DC5 
#0X30, DO 
DO,  (A6)  + 

D0,D4 

#1,D6 

0HX2DCO 

D4 

0HX2DC6 
♦  'O',  (A6)  + 
(A7)H-,D1-D4/D6-D7 


ADJUST  -  A  POWER  OF  TEN 
IF  POWER  IS  ZERO 
D 3-LOWER  WORD 

D2-UPPER  WORD 

ADD  UPPER  TO  UPPER 

PUT  UPPER  IN  UPPER 
PUT  LOWER  IN  LOWER 
D2-UPPER  &  LOWER 


HOLDS  SUB  AMT 

IF  NO  MORE  SUB  POSSIBLE 
BUMP  SUBS 

COUNT  DOWN  BY  POWERS  OF  TEN 
DO  MORE 
ANY  VALUE? 

ZERO  SURPRESS 

BINARY  TO  ASCII 

PUT  IN  BUFFER 

MARK  AS  NON  ZERO  SURPRESS 

NEXT  POWER 

SEE  IF  ANYTHING  PRINTED 

PRINT  AT  LEAST  A  ZERO 
RESTORE  REGISTERS 


E^iD  OF  ROUTINE  */ 

DISASSEMBLY  PROGRAM  ENDS  */ 


MOVEM.L  (SP) +,D0-D7/A0-A7 
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8ouro«  ood*  of  tost.o 


/*  **  test.c  **  */ 

/*  This  program  determines  the  start  and  the  end 
addresses  for  the  download. c  progreun,  and  also 
contains  the  user  program.  */ 

char  *start,*end; 


testO  { 
asm{ 


LEA 

@1,A0 

MOVE.L 

AO, start 

LEA 

@2,  AO 

MOVE.L 

AO, end 

LEA 

@1,A1 

LEA 

@2,  A3 

LEA 

03, A2 

SUBA.L 

Al,  A3 

MOVE.L 

A3,  DO 

SUB.W 

#8, DO 

MOVE.W 

DO, (A2) 

JMP 

(AO) 

01: 

DC.W 

0x0000 

DC.W 

0x1000 

@3: 

DC.W 

0x0000 

@2  is  already  in  AO  ... 

Count  of  chars  to  be  sent . . 

download  address. . . 

:  contains  count  of  chars . . . 


/*  ***  user  program  begins  ***  */ 


/*  ***  USER  PROGRAM  ENDS  ***  */ 

@2 :  NOP 

) 

} 
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B.  SOURCE  CODE  OF  MONITOR  PROGRAM. 


.  /*  ecb.asm  **  */ 

;/*  These  programs  reside  in  the  lower  addresses  of  ROM.  At  the  system 
;  start-up  these  routines  are  copied  to  RAM.  During  execution,  some  of 
;  the  routines  run  in  ROM  and  some  of  them  run  in  RAM. 

;  The  Main  program  loops  and  waits  for  any  command  from  Macintosh.  After 

/  receiving  the  command,  the  program  execution  is  switched  to  the  desired 
;  routine.  Which  in  turn,  upon  its  execution  returns  to  Main. 

;*/ 

/*  Initialization  */ 

/* 

Function:  1-  Copies  ROM  Contents  to  RAM. 

2-  Autovector  Level  4  and  Level  6  Interrupt  Handler  Addresses 
are  loaded  in  their  place  in  Exception  Vector  Table. 

Also,  other  defined  Vector  entries  are  filled  with  the 
address  of  STACKFRAME  Routine.  The  purpose  is,  just  to 
prevent  the  system  from  doing  undesired  things  and  the 
loss  of  system  stack  space. 

3-  The  Stack  Allocation  is  done  for  SSP,ISP,USP. 

4-  Makes  PHANTOM  Low. 


ROM 

EQU 

$00040000 

PHAN  LOW 

EQU 

$00020000 

INTR  CHK 

EQU 

$000E0000 

VIOL  VEC 

EQU 

$00000020 

TRAC  VEC 

EQU 

$00000024 

INTI  VEC 

EQU 

$00000064 

INT2  VEC 

EQU 

$00000068 

INT3  VEC 

EQU 

$0000006C 

INT4  VEC 

EQU 

$00000070 

INT5  VEC 

EQU 

$00000074 

INT6  VEC 

EQU 

$00000078 

INT7  VEC 

EQU 

$0000007C 

TRAP  VEC 

EQU 

$000000BC 

WORD  CON 

EQU 

$0000FFFF 

SEND  ZER 

EQU 

$000C8000 

SEND  ONE 

EQU 

$00040000 

TBL  FPCR 

EQU 

$00000E9C 

TBL  FPSR 

EQU 

$00000EA0 

TBL  FIAR 

EQU 

$00000EA4 

TBL  FPO 

EQU 

$00000EA8 

TBL  FPl 

EQU 

$00000EB4 

TBL  FP2 

EQU 

$00000EC0 

/FLOATING  POINT  REGISTERS. 
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TBL  FP3 

EQU 

$00000ECC 

TBL  FP4 

EQU 

$00000ED8 

TBL  FP5 

EQU 

$00000EE4 

TBL  FP6 

EQU 

$00000EF0 

TBL  FP7 

EQU 

$00000EFC 

TBL  DO 

EQU 

$00000F08 

;MC68020  REGISTERS. 

TBL  D1 

EQU 

$00000F0C 

TBL  D2 

EQU 

$00000F10 

TBL  D3 

EQU 

$00000F14 

TBL  D4 

EQU 

$00000F18 

TBL  D5 

EQU 

$00C00F1C 

TBL  D6 

EQU 

$00000F20 

TBL  D7 

EQU 

$00000F24 

TBL  AO 

EQU 

$00000F28 

TBL  A1 

EQU 

$00000F2C 

TBL  A2 

EQU 

$00000F30 

TBL  A3 

EQU 

$00000F34 

TBL  A4 

EQU 

$00000F38 

TBL  A5 

EQU 

$00000F3C 

TBL  A6 

EQU 

$00000F40 

TBL  USP 

EQU 

$00000F44 

TBL  SSP 

EQU 

$00000F48 

TBL  ISP 

EQU 

$00000F4C 

TBL  PC 

EQU 

$00000F50 

TBL  SRHI 

EQU 

$00000F54 

/HIGH  ORDER  WORD  IS 

ZERO 

(ie. 

$6FEC) 

TBL  SR 

EQU 

$00000F56 

/LOW  ORDER  WORD  IS 

SR 

(ie . 

$6FEE) 

TBL  VBR 

EQU 

$00000F58 

TBL  CACR 

EQU 

$00000F5C 

TBL  CAAR 

EQU 

$00000F60 

TBL  SFC 

EQU 

$00000F64 

INTR  ENB 

EQU 

$F8FF 

/DEFINED  CONSTANTS. 

MASK  7 

EQU 

$0700 

TRAP  15 

EQU 

$4E4F 

MAXINT 

EQU 

$7FFF 

BRKCOUNT 

EQU 

$0F 

/*  Filling  Exception  Vector  Table  Entries  */ 


ORG 

$00000000 

i 

LONG 

$00001FFFC 

/INITIAL  STACK 

POINTER  (ISP) 

LONG 

HERE 

/INITIAL  PROGRAM  COUNTER. 

LONG 

STACKFRAME+ROM 

/ VECTOR 

NUMBER 

02 

LONG 

Stackframe+rom 

/ VECTOR 

NUMBER 

03 

LONG 

STACKFRAME+ROM 

/ VECTOR 

NUMBER 

04 

LONG 

STACKFRAME+ROM 

/ VECTOR 

NUMBER 

05 

LONG 

STACKFRAME+ROM 

/ VECTOR 

NUMBER 

06 

LONG 

STACKFRAME+ROM 

/ VECTOR 

NUMBER 

07 

LONG 

VIOLHANDLER+ROM 

/THE  ENTRY  POINTS  TO 

;  PRIV. VIOLATION  TRACE  HANDLER. 
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LONG 

TRACEHANDLER+ROM 

THE  ENTRY  POINTS 

TO 

TRACE  HANDLER. 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

10 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

11 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

12 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

13 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

14 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

15 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

16 

ORG 

$00000060 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

24 

LONG 

STACKFRAME+ROM 

VECTOR 

NU+BER 

25 

LONG 

STACKFRAME+ROM 

VECTOR 

NLiiBER 

26 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

27 

LONG 

HANDLER+ROM 

THE  ENTRY  POINTS 

TO 

INTERRUPT 

HANDLER. 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

29 

LONG 

ABORT+ROM 

THE  ENTRY  POINTS 

TO 

INTERRUPT 

HANDLER. 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

31 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

32 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

33 

LONG 

STACKFRAME+ROM 

•VECTOR 

NUMBER 

34 

LONG 

STACKFRAME+ROM 

•VECTOR 

NUMBER 

35 

LONG 

STACKFRAME+ROM 

•VECTOR 

NUMBER 

36 

LONG 

STACKFRAME+ROM 

•VECTOR 

NUMBER 

37 

LONG 

STACKFRAME+ROM 

•VECTOR 

NUMBER 

38 

LONG 

STACKFRAME+ROM 

•VECTOR 

NUMBER 

39 

LONG 

STACKFRAME+ROM 

;  VECTOR 

NUMBER 

40 

LONG 

STACKFRAME+ROM 

;  VECTOR 

NUMBER 

41 

LONG 

S  TACKFRAME+ROM 

;  VECTOR 

NUMBER 

42 

LONG 

STACKFRAME+ROM 

;  VECTOR 

NUMBER 

43 

LONG 

STACKFRAME+ROM 

•VECTOR 

NUMBER 

44 

LONG 

STACKFRAME+ROM 

? VECTOR 

NUMBER 

45 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

46 

LONG 

TRAPH+ROM 

?THE  ENTRY  POINTS 

TO 

TRAP  #15 

HANDLER . 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

48 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

49 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

50 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

51 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

52 

LONG 

STACKFRAME+ROM 

\'ECTOR 

NUMBER 

53 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

54 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

55 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

56 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

57 

LONG 

STACKFRAME+ROM 

VECTOR 

NUMBER 

58 

/*  Initializing  the  Stack  Pointers,  and  making  PHANTOM  Low.  */ 

ORG  $00000400  ;THIS  ADPRRESS  IS  THE  END  OF  EXCEPTION 
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HERE; 
LI : 


MOVEA.L  #$00, AO 
MOVE.L  (A0),(A0)+ 
CMP.L  #IiAST,A0 
BLE  LI 

NOP 

MOVE.L  #$OOOOlFCOO,Dl 
LONG  $4E7B1803 
MOVE.L  #$1F800,D2 
LONG  $4E7B2800 
AND I  # INTR_ENB , SR 
MOVE . L  PHAN_LOW, DO 


VECTOR  TABLE . 

LOAD  THE  START  ADDRESS  OF  PGM.  TO  RAM... 
COPY  ROM  CONTENTS  TO  RAM. 


[D1]<-$1FC00. 

[USP]<-tDl] . 
tD2]<-$lP800. 

[SSP]<-[D1] . 

ENABLE  INTERRUPTS. 

MAKE  PHANTOM  LOW, SWITCH  TO  RAM. 


/*  End  of  initialization  */ 


/*  MAIN  Routine  Below  */ 

/* 

Function:  Loops  endlessly,  waiting  for  a  command  from  Macintosh. 

Each  command,  which  is  sent  by  the  Macintosh,  has  a  special 
code.  These  codes  for  the  commands  are  shown  below: 


'0'  for  DOWNLOAD  Command. 

'  1'  for  UPLOAD  Command. 

'2'  for  GO  Command. 

'3'  for  CALL  Command. 

'4'  for  MEMDISPLAY  Command. 

'5'  for  MEMWRITE  Command. 

'8'  for  DOWNLOAD  Command.  (  With  Coprocessor  Enabled  ). 

After  receiving  one  of  these  commands,  program  execution 
is  switched  to  the  desired  routine.  In  case  of  an  error, 
in  receiving  the  command  byte.  Main  simply  continues  to 
loop,  as  if  no  command  was  received.  In  this  case  user  may 
retry  his  last  command. 

*/ 


MAIN: 

JSR 

RUART+ROM 

GET  THE  COMMAND  IN  D3. 

CMP  .B 

#0,D3 

IS  IT  DOWNLOAD  ? . . 

BNE.S 

SKIP  0 

IF  NOT,  CONTINUE  TO  FIND  A  MATCH. 

BSR 

DOWNLOAD 

IF  YES,  DOWNLOAD. 

BRA 

MAIN 

DOWNLOAD  DONE,  WAIT  FOR  THE  NEXT  COMMAND. 

SKIP_ 

_0: 

CMP  .B 

#1,D3 

IS  IT  UPLOAD  ? . . 

BNE.S 

SKIP  1 

IF  NOT,  CONTINUE  TO  FIND  A  MATCH. 

BSR 

UPLOAD 

IF  YES,  UPLOAD. 

BRA 

MAIN 

UPLOAD  DONE,  WAIT  FOR  THE  NEXT  COMMAND. 

SKIP_ 

_1 : 

CMP  .B 

#2,D3 

IS  IT  GO  ? . . 

BNE.S 

SKIP  3 

IF  NOT,  CONTINUE  TO  FIND  A  MATCH. 

BSR 

GO 

IF  YES,  GO. 

SKIP_ 

_3: 

CMP  .B 

#4,D3 

IS  IT  MEMDISPLAY  ? . . 

BNE.S 

SKIP  4 

IF  NOT,  CONTINUE  TO  FIND  A  MATCH. 

BSR 

MEMDISPLAY 

IF  YES,  MEMDISPLAY. 

BRA 

MAIN 

•MEMDISPLAY  DONE,  WAIT  FOR  THE  NEXT  COMMAND. 

SKIP_ 

_4  : 

CMP.B 

#5,D3 

fIS 

IT  MEMWRITE  ? . . 

BNE.S 

SKIP  5 

:IF 

NOT, 

CONTINUE  TO 

FIND  A  MATCH. 

BSR 

MEMWRITE 

f  IF 

YES, 

MEMWRITE . 

SKIP_ 

_5: 

CMP.B 

♦  3,D3 

fIS 

IT  CALL  7 . . 

BNE.S 

SKIP  6 

:IF 

NOT, 

CONTINUE  TO 

FIND  A  MATCH. 

BSR 

GO 

:IF 

YES, 

GO  (IN  CASE 

OF  'CALL'  IN  MAC.) . 

SKIP_ 

_6: 

CMP.B 

#8,D3 

?is 

IT  DOWNLOAD  WITH 

COPROCESSOR  ENABLED  7 

BNE.S 

SKIP  7 

’ 

BSR 

DOWNLOAD 

’ 

SKIP 

7: 

BRA 

MAIN 

:GO 

AND 

WAIT  FOR  THE 

NEXT  COMMAND. 

/*  MAIN  Routine  Ends  */ 


/*  Communication  Routines  (SUART,  RUART,  DELAY,  GETBIT)  Below  */ 


/*  SUART  Routine  Below  */ 

/* 

Function:  SUART  sends  byte  data,  which  is  in  low  byte  of  D3. 

Timing  is  adjusted  such  that  Baud  rate  of  9600  is  obtained. 

Modified 

Registers:  D3  is  used  to  pass  argument  to  SUART.  Other  than  that 
register  contents  are  not  modified. 


Called  by:  UPLOAD,  FUPLOAD,  MEMWRITE,  MEMDISPLAY,  SCNTS . 

*/ 


SUART: 

AGAIN : 


ONE: 
SKIP  : 


MOVEM.L  D4-D5,-(SP) 
MOVE.B  #8,D5 
JSR  SEND_ZER+DELAY1 

BTST  #0,D3 
BNE . S  ONE 

JSR  SEND_ZER+DELAY1 

JMP  ROM+SKIP 

JSR  SEND_ONE+DELAYl 

ROR.B  #1,D3 

SUBQ.B  #1,D5 

BNE . S  AGAIN 

JSR  SEND_ONE+DELAYl 

JSR  SEND_ONE+DELAYl 

MOVEM.L  (SP)+,D4-D5 

RTS 


BITS  TO  BE  SEND  SHOULD  BE  IN  D3 . 
EIGHT  BITS  ARE  TO  BE  SENT. 

SEND  START  BIT. 

EVALUATE  LEAST  SIGNIFICANT  BIT. 

SEND  A  ZERO  . 

SEND  A  ONE. 

GET  THE  OTHER  BIT. 


SEND  FIRST  STOP  BIT. 

SECOND  STOP  BIT. 

RESTORE  ORIGINAL  REGISTERS. 


/*  SUART  Routine  Ends  */ 


/*  DELAYl  Routine  Below  */ 
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Function:  DELAYl  provides  a  delay  of  (1/9600)  seconds.  Which  is 
needed  to  provide  a  Baud  rate  of  9600. 

Modified 

Registers:  D4  is  modified.  But  this  will  not  affect  the  original  D4 
value,  since  it  was  saved  in  SUART. 

Called  by:  SUART. 

*/ 

DELAYl:  MOVE . L  #$0A,D4 

LOOPl:  NOP 

NOP 

SUB.L  #1,D4 
BGE  LOOPl 

NOP 
NOP 
RTS 

/*  DELAYl  Routine  Ends  */ 


/*  RUART  Routine  Below  */ 

Function:  RUART  receives  a  byte  of  data  from  RS232  input,  at  a  Baud 

rate  of  9600. 

Modified 

Registers:  D3  is  modified.  It  is  used  to  pass  the  received  byte  to 
the  calling  routine. 


Called  by:  MAIN,  DOWNLOAD, 

LDREGTBL,  GO,  MEMWRITE,  MEMDISPLAY,  GETLONG. 

*/ 

RUART: 

MOVEM . L 

D0-D2/D4-D7, 

-(SP)  / 

START: 

MOVE.B 

#1,D1 

;SET  RECEIVE  BUFFER  (  BIT  #  0  ) . 

JMP 

I»’  1  CHK+NEXTl  ; CHECK  RS232  IN,  WAIT  FOR  THE  START  BIT 

NEXTl : 

NOP 

f 

NOP 

/ENOUGH  DELAY  FOR  RS232  INTERRUPTS. 

NOP 

f 

JMP 

ROM+EXITl 

r 

NOP 

r 

EXITl : 

CMP.B 

#0,D1 

;IF  [D13=l,  RS232  IN  WAS  LOW.  START  BIT 

/  CAME. 

BNE.S 

START 

;IF  [D1]»0,  RS232  INPUT  WAS  HIGH.  WAIT  FOR 

;  THE  START  BIT, 

MOVE.L 

#0,D6 

f 

LABI : 

DBF 

D6.  ^  ABl 

f 

MOVE.L 

t 

MOVE . E 

#1,D1 

r 

JMP 

INTR  CHK+NEXT2  /CHECK  RS232  IN. 

NEXT2 : 

NOP 

r 

NOP 

/ENOUGH  DELAY  FOR  RS232  INTERRUPT 

NOP 

r 

GET  THE  DELAY  LOOP  COUNT  IN  D4 . 

THIS  COUNT  AND  NOPs  ASSURE  A  BIT  TIME 
OF  (1/9600)  SECONDS. 

DELAYl  IS  CALLED  BY  SUART,  SINCE  IT  SAVES 
D4  WE  DON'T  NEED  TO  SAVE  D4  HERE. 


RETURN  FROM  DELAYl  SUBROUTINE 
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JMP 

NOP 

ROM+EXIT2 

EXIT2  : 

CMP.B 

♦  0,D1 

BNE.S 

START 

MOVE.L 

NOP 

#7,D6 

LAB2  : 

DBF 

D6,LAB2 

MOVE.L 

$5AB2,D7 

CLR.B 

D3 

MOVE.B 

#8,D2 

CIRC; 

JSR 

rom+gEtbit 

OR.B 

D1,D3 

ROR.B 

#1,D3 

MOVE.L 

$5AB3,D5 

SUB.B 

#1,D2 

BNE.S 

CIRC 

IP  [Dl]-1,  RS232  IN  LOW,  START  BIT  CAME. 

IP  [Dl]-0,  NO  RS232  IN.  PREVIOUS  START  BIT 
WAS  SPURIOUS.  WAIT  POR  START  BIT. 

START  BIT  RECEIVED.  NOW  START  TO  RECEIVE 
POLLOWING  BITS. 

THE  BITS  WILL  BE  SHIPTED  INTO  D3 . 

8  IS  THE  NUMBER  OP  BITS  TO  BE  RECEIVED. 

GET  NEXT  BIT. 

GET  THE  BIT  INTO  D3. 


AT  THE  EXIT  POINT  WE  ARE  ALREADY  ON  THE 
STOP  BIT  #1.  RECEIVING  THE  BITS  ENDS  HERE. 
NOW  CHECK  STOP  BITS. 


PASSl: 


PASS2 : 


MOVE.B  D3,$5AB4 

JSR  ROM+GETBIT 

BTST  #0,D1 

BNE.S  PASSl 

JSR  SENDERROR+ROM 


CHECK  PIRST  STOP  BIT, 


IP  IT  CAME  CHECK  POR  THE  SECOND  STOP  BIT. 
SEND  RECEIVE  ERROR  TO  MACINTOSH. 

MOVEM.L  (SP)+,D0'D2/D4-D7;  AND 

JMP  MAIN  ;  RETURN  TO  MAIN  LOOP,  WAIT  POR  NEXT 

COMMAND. 

JSR  ROM+GETBIT  /CHECK  SECOND  STOP  BIT. 

BTST  #0,D1 

BNE.S  PASS2 

JSR  SENDERROR+ROM  / SEND  RECEIVE  ERROR  TO  MACINTOSH . . 

MOVEM.L  (SP)+,D0~D2/D4«D7;AND. . . 

JMP  MAIN  /RETURN  TO  MAIN  LOOP,  WAIT  POR  NEXT  COMMAND. 

MOVEM.L  (SP)+,D0«d2/D4-D7/ 

RTS 


/*  RUART  Routine  Ends  */ 


/*  GETBIT  Routine  Below  */ 


Punction:  GETBIT  receives  a  ”bit"  of  data  from  RS232  input,  at  a  Baud 

rate  of  9600.  It  senses  the  RS232  input. 

Modified 

Registers:  D1  is  modified.  It  is  used  to  pass  the  received  bit  to 
the  calling  routine. 


Called  by:  RUART. 

*/ 
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GETBIT : 


MOVEM.L  D5-D6,-(SP)  ; 

MOVE.B  #1,01  ; 

MOVE.L  $5AB5,D5  ; 

JMP  INTR_CHK+NEXT3  ; CHECK  RS232  INPUT. 

NEXT3 :  NOP 

NOP  /PROVIDE  ENOUGH  DELAli;  FOR  RS232  INTERRUPT. 

NOP  / 


JMP 

ROM+EXIT3 

NOP 

EX1T3: 

MOVE.L 

$5AB6,D5 

WITH  THIS  MOVE 

.L  TO  D5,  THE  FOLLOWING  DBF 

MOVE.L 

♦  1,D6 

INSTRUCTIONS 

WITH  2  DIFFERENT  COUNTS  IN 

BTST 

♦  0,D1 

D6  GUARANTEES 

THE  SAME  AMOUNT  OF  DELAY 

BEQ.S 

SKIPO 

IN  CASE  OF  AN 

INTERRUPT  OCCURRENCE  OR  NOT 

MOVE.L 

♦  5,D6 

SKIPO: 

DBF 

D6, SKIPO 

MOVE.L 

#2,D6 

ADJ; 

DBF 

D6,ADJ 

MOVE.L 

$5AB7,D5 

MOVEM.L 

(SP)+,D5-D6 

RTS 

/*  GETBIT  Routine  Ends  */ 

Communication  Routines  (SUART,  RUART,  DELAY,  GETBIT)  Ends  */ 


/*  FLTCLR  Routine  Below  */ 

Function:  FLTCLP.  initializes  the  Coprocessor's  control  and  data 

registers  to  zero.  After  power-up,  the  Coprocessor's 
registers  contain  (  $7FFF  OOOF  FFFF  FFFF  )  in  Packed  Format . 
FLTCLR  clears  all  Floating  Point  registers . 

Modified 
Registers :  None . 


Called  by:  DOWNLOAD. 

*/ 

FLTCLR;  WORD  $F23C 

WORD  $4000 

WORD  $0000 

WORD  $0000 

WORD  $F23C 

WORD  $4080 

WORD  $0000 

WORD  $0000 

WORD  $F23C 

WORD  $4100 

WORD  $0000 

WORD  $0000 

WORD  $F2JC 


FMOVE.L  #0,FP0 


FMOVE.L  ♦0,FP1 


FMOVE.L  #0,FP2 


FMOVE.L  #0,FP3 
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WORD 

$4180 

WORD 

$0000 

WORD 

$0000 

WORD 

$F23C 

WORD 

$4200 

WORD 

$0000 

WORD 

$0000 

WORD 

$F23C 

WORD 

$4280 

WORD 

$0000 

WORD 

$0000 

WORD 

$F23C 

WORD 

$4300 

WORD 

$0000 

WORD 

$0000 

WORD 

$F23C 

WORD 

$4380 

WORD 

$0000 

WORD 

$0000 

RTS 

FMOVE.L  #0,FP4 


FMOVE.L  ♦0,FP5 


FMOVE.L  #0,FP6 


FMOVE.L  #0,FP7 


/*  FLTCLR  Routine  Ends  */ 

/*  DOWNLOAD  Routine  Below  */ 


*/ 


Function;  DOWNLOAD,  Downloads  the  bytes  (in  user  program), 
which  are  sent  by  the  Macintosh. 

Modified 
Registers ;  None , 

Called  by:  MAIN. 


DOWNLOAD ; 

MOVE.B 

#0,COP  ENB 

BTST.B 

#3,D3 

COPROCESSOR  ENABLED  BY  USER  ? 

SNE 

COP  ENB 

..YES,  SET  COPROCESSOR  ENABLED  FLAG. 

MOVEM.L 

D0-D7/A0-A7,- (SP)  ; 

JSR 

GETLONG 

D3  DOWNLOAD  ADDRESS. 

MOVEA.L 

D3,  A1 

[Al]<-  LOAD  ADDRESS 

MOVE.L 

#8,D6 

COUNTER  TO  SHIFT  LOW  BYTE  TO  HIGH  BYTE 

JSR 

RUART+ROM 

GET  HIGH  BYTE  OF  COUNT. 

LSL.L 

D6,D3 

MOVE  LOW  BYTE  TO  HIGH. 

JSR 

RUART+ROM 

GET  LOW  BYTE  OF  COUNT. 

AND.L 

#$0000FFFF,D3 

CLEAR  HIGH  WORD. 

MOVE.L 

D3,D0 

[D0]<-  COUNT. 

THE  NUMBER  OF  BYTES  TO  BE  DOWNLOADED  ARE 
EQUAL  TO  COUNT  IN  DO  ABOVE. 

NOW  START  TO  RECEIVE  COUNT  NUM.  OF  BYTES. 

DLOAD: 

MOVE.L 

A1,A3 

/SAVE  LOAD  ADDRESS  FOR  CHECKSUM  CALCULATIOl 

MOVE.L 

D0,D4 

•SAVE  COUNT  FOR  CHECKSUM  CALCULATION. 

LAB99: 

JSR 

RUART+ROM 

•LOAD  THE  USER  PROGRAM. 
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MOVE.B 

SUB.W 

BNE.S 

JSR 

MOVE.B 

MOVE.L 

MOVE.B 

SUB.W 

LAB88:  MOVE.B 

EOR.B 
SUB.W 
BNE.S 
CMP.B 
BNE.S 
BSR 
BSR 
BSR 
TST.B 
BEQ.S 
BSR 
BSR 

SKP_C0:  MOVEM.L 

RTS 

C_ERROR:  JSR 

MOVEM.L 

RTS 


D3,  (Al)  + 

♦  1,D0 
LAB99 
RUART+ROM 
D3,D5 
A3,A1 
(A1)+,D0 

♦  1,D4 
(Al) +,D6 
D6,D0 

♦  1,D4 
LAB88 
D5,D0 
C_ERROR 
FLTCLR 
UPDATETBL2 
UPLOAD 
COP_ENB 
SKP_CO 
UPDTFLTBL 
FUPLOAD 

(SP)+,D0-D7/A0- 

SENDERROR+ROM 
(SP) +,D0-D7/A0 


GET  CHECKSUM. [D3 .B]<-  CHECKSUM. 
SAVE  RECEIVED  CHECKSUM  IN  [D5.B1 
RETRIEVE  LOAD  ADDRESS. 

BEGIN  TO  CALCULATE  CHECKSUM. 


CHECKSUM  CALCULATION  DONE  HERE. 

COMPARE  RECEIVED  &  CALCULATED  CHECKSUMS. 
IN  CASE  OF  ERROR  ALERT  MACINTOSH. 

LOAD  REGISTER  TABLE  WITH  CURRENT  VALUES. 
SEND  THESE  VALUES  TO  MACINTOSH. 


•A7; 

; RETURN  TO  CALLER. 


/*  DOWNLOAD  Routine  Ends 


/*  LDREGTBL  Routine  Below  */ 


Function;  LDREGTBL  receives  the  portion  of  data  which  contains  register 
information.  Places  this  data  in  the  register  table,  which 
starts  at  the  address  TBL_D0 . 

Modified 
Registers ;  None . 


Called  by:  GO. 

*/ 

LDREGTBL : 


MORE: 


MOVEM.L 

MOVE.L 

MOVE.L 

MOVE.L 

JSR 

MOVE.B 

SUB.L 

BNE.S 

JSR 


D0-D7/A0-A7,-  (SP) 
68(SP),D4 
72(SP),A6  ; 

A6,A5 

RUART+ROM  ; 

D3,  (A6)  + 

#1,D4 

MORE 

RUART+ROM  / 


24  REGS  X  4  »  96  BYTES  WILL  BE  RECEIVED. 
PUT  BASE  LOADING  ADDRESS  IN  A6 . 

SAVE  A6  IN  A5  (FOR  USE  IN  CHECKSUM  CALC) . 
START  RECEIVING  BYTES. . . 


RECEIVE  ENDS . . . 

GET  CHECKSUM  BYTE. (IT  WILL  BE  IN  [D3]) . 
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MOVE.L 

MOVE.B 

SUB.L 

GETCHKSUM: MOVE.B 
EOR.B 
SUB.L 
BNE.S 
CMP  .B 
BNE.S 
BRA 

C_ERROR2;  JSR 

FINISH;  MOVEM.L 
RTS 


68(SP),D4 
(A5)+,D0  / 

♦  1,D4 
(A5)+,D6 
D6,D0 

♦1,D4  ; 

GETCHKSUM 

D3,D0 

C_ERROR2  ; 

FINISH  ; 

SENDERROR+ROM  ; 
(SP)+,D0-D7/A0-A7 


CCWPUTE  CHECKSUM. . . 

24  REGS  X  4  -  96  BYTES  WILL  BE  RECEIVED 
108  (FOR  FLOATING) 


CHECKSUM  COMPUTATION  ENDS. 

RETURN  TO  CALLER. 

IN  CASE  OF  ERROR  ALERT  MAC  TOSH. 


/*  LDREGTBL  Routine  Ends  */ 

/*  UPLOAD  Routine  Below  */ 

Function:  ULPOAD  sends  the  data  which  is  contained  in  register  table, 
to  the  Macintosh. 

Modified 
Registers:  None. 

Called  by:  DOWNLOAD,  TRAPH,  TRACEHANDLER . 


*/ 

UPLOAD : 

MOVEM .  L 

ROUND: 

MOVEA .  L 

MOVE.B 

MOVE.B 

JSR 

MOVE.B 

SUB.B 

BNE.S 

MOVEM.L 

RTS 

ROM+SUART 
$6664, D3 
#1,D4 
ROUND 


SET  BYTES  COUNT  IN  D4 


THIS  MOVE.B  IS  FOR  ADJUSTING  THE  TIMING 
tD0]<-  COUNT. 


; RETURN  TO  CALLER. 


/*  UPLOAD  Routine  Ends  */ 


/*  FUPLOAD  Routine  Below  */ 

Function;  FULPOAD  sends  the  data  which  is  contained  in  Floating  Point 
Register  Table,  to  the  Macintosh. 

Modified 
Registers :  None . 

Called  by:  DOWNLOAD,  TRAPH,  TRACEHANDLER. 

*/ 
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FUPLOAD : 

MOVEM . L 

D0-D7/A0-A7,-(SP) / 

MOVEA.L 

♦TBL  FPCR,A6 

MOVE.B 

#108, D4 

SET  BYTES  COUNT  IN 

D4  . 

FROUND : 

MOVE.B 

(A6)+,D3 

JSR 

ROM+SUART 

MOVE.B 

$6666, D3 

THIS  MOVE.B  IS  FOR 

ADJUSTING  THE  TIMING 

SUB.B 

#1,D4 

[D01<-  COUNT. 

BNE.S 

FROUND 

MOVEM. L 

(SP) +,D0-D7/A0-A7; 

RTS 

•RETURN  TO  CALLER. 

/*  FUPLOAD  Routine  Ends  */ 


/*  GO  Routine  Below  */ 


Function:  GO  receives  the  following  parameters  in  that  order: 

1-  Display  Steps  Byte 
2”  Five  Break  Point  Addresses 

3-  Five  Break  Point  Counts 

4-  All  of  the  Registers,  Program  Counter. 

Modified 
Registers :  None . 


Called  by:  MAIN. 

*/ 


GO: 


GETPTS ; 


GETCTS : 


MOVE.B 

♦$AA,VIOL  FLAG 

MOVE.B 

D3, SAVECODE 

MOVE.B 

#1,FIBSTINST 

JSR 

RUART+ROM 

GET  DISP  STEP  BYTE. 

MOVE.B 

D3,DISP  STEP 

PUT  IT  IN  ITS  LOCATION. 

MOVE.B 

#5,D4 

LEA 

BRKPT1,A6 

LOAD  A 6  WITH  THE  ADDRESS 

OF 

FIRST  BREAK_ 

JSR 

GETLONG 

POINT  ADDRESS  HOLDER. 

MOVE .L 

D3,  (A6)  + 

SUB.B 

#1,D4 

BNE.S 

GETPTS 

;BRKPT1  THRU  BRKPT5  ARE  LOADED  WITH 

MOVE.L 

♦  8,D6 

ADDRESSES. 

MOVE.B 

#5,D4 

LEA 

BRKCNT1,A6 

I'^AD  A6  WITH  THE  ADDRESS 

OF 

FIRST  BRKCNT. 

JSR 

RUART+ROM 

GET  LOW  BYTE  OF  COUNT. 

LSL.L 

D6,  D3 

MOVE  LOW  BYTE  TO  HIGH. 

JSR 

RUART+ROM 

GET  LOW  BYTE  OF  COUNT. 

AND.L 

#$0000FFFF,D3 

CLEAR  HIGH  WORD. 

MOVE.L 

D3,  (A6)  + 

[(A6)]<-  COUNT. 

SUB.B 

#1,D4 

BNE.S 

GETCTS 

:BRKCNT1  THRU  5  ARE  LOADED  WITH  THE  COUNTS. 

PEA 

TBL  DO 

■ 

MOVE.L 

#96, -(SP) 

■ 

BSR 

LDREGTBL 

:LOAD  THE  REGISTER  TABLE 

FROM  MACINTOSH. 
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SKP  Cl; 


PASS  1: 


PASS  2; 


PASS  3: 


PASS  4: 


PASS  5: 


ADD.L 

#8,SP 

TST.B 

COP  ENB 

BEQ.S 

SKP  Cl 

PEA 

TBL  FPCR 

MOVE.L 

#108, -(SP) 

BSR 

LDREGTBL 

ADD.L 

#8,SP 

BTST.B 

#7, TBL  SR 

BNE 

PASS  6 

BTST.B 

#6, TBL  SR 

BNE 

PASS  5 

CMPI .L 

#0, BRKPTl 

BEQ.S 

PASS  1 

MOVE.L 

BRKPTl,  A6 

CMPA.L 

TBL  PC,A6 

BEQ.S 

PASS  1 

MOVE.W 

(A6) ,TMPPTl+2 

MOVE.W 

#TRAP  15, (A6) 

CMPI.L 

#0,BRKPT2 

BEQ.S 

PASS  2 

MOVE.L 

BRKPT2,  A6 

CMPA.L 

TBL  PC,A6 

BEQ.S 

PASS  2 

MOVE.W 

(A6) ,TMPPT2+2 

MOVE.W 

#TRAP  15, (A6) 

CMPI.L 

#0,BRKPT3 

BEQ.S 

PASS  3 

MOVE.L 

BRKPT3,  A6 

CMPA.L 

TBL  PC,A6 

BEQ.S 

PASS  3 

MOVE . W 

(A6) ,TMPPT3+2 

MOVE . W 

♦TRAP  15, (A6) 

CMPI.L 

#0,BRKPT4 

BEQ.S 

PASS  4 

MOVE.L 

BRKPT4,  A6 

CMPA.L 

TBL  PC,A6 

BEQ.S 

PASS  4 

MOVE.W 

(A6) ,TMPPT4+2 

MOVE.W 

♦TRAP  15, (A6) 

CMPI.L 

#0,BRKPT5 

BEQ.S 

PASS  5 

MOVE.L 

BRKPT5, A6 

CMPA.L 

TBL  PC,A6 

BEQ.S 

PASS  5 

MOVE.W 

(A6) ,TMPPT5+2 

MOVE.W 

♦TRAP  15, (A6) 

BSR 

UPDATEREGS 

TST.B 

COP  ENB 

BEQ.S 

SKP  C2 

BSR 

UPDTFLREGS 

IF  USER  DOES  NOT  ENABLE  COPROCESSOR.. 
DO  NOT  WAIT  FOR  FLOATING  REGISTERS. 


LOAD  THE  FLOATING  REG.  TABLE  FROM 
MACINTOSH . 

IS  TRACE  ALL  ? 

...YES  ,  DO  NOT  INSERT  TRAP  #15. 

IS  TRACE  BRANCH  ? 

...YES  ,  DO  NOT  INSERT  TRAP  #15. 

IN  CASE  OF  NO  BREAK_POINT  FOR  ANY  BRKPT 
'$0000'  WILL  BE  SENT  FROM  MAC.  IF  IT  IS 
ZERO  THEN  SKIP  SAVING  AND  CHECK  OTHERS. 
IS  BREAKPOINT  *  PC  ? 

...  YES  DO  NOT  INSERT  TRAP  15  CODE. 

IF  BRKPTl  IS  NOT  EQUAL  TO  fOOOO  THIS 
MEANS  TAHT  A  BRKFT  WILL  OCCUR.  AND  FIRST 
PIECE  OF  CODE  IS  TAKEN  OUT  AND  SAVED  IN 
TMPPTx,  THEN  TRAP_15  CODE  IS  INSERTED. 

IS  BREAKPOINT  -  PC  ? 

...  YES  DO  NOT  INSERT  TRAP_15  CODE. 


IS  BREAKPOINT  =  PC  ? 

..  YES  DO  NOT  INSERT  TRAP  15  CODE. 


IS  BREAKPOINT  -  PC  7 

..  YES  DO  NOT  INSERT  TRAP  15  CODE. 


IS  BREAKPOINT  -=  PC  ? 

...  YES  DON'T  INSERT  TRAP_15  CODE. 

UPDATE  REGISTERS  FROM  THE  REGISTER  TABLE. 
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SKP_C2 : 

MOVE.L 

TBL  ITSP,A0 

•READY  FOR  USP . 

MOVE.L 

A0,USP 

:LOAD  USP  FROM  TABLE. 

MOVE.L 

TBL  SSP,A0 

•ready  FOR  SSP. 

LONG 

$4E7B8803 

•load  SSP  FROM  REG. TABLE. 

MOVE.L 

TBL  ISP, AO 

•READY  FOR  ISP. 

LONG 

$4E7B8804 

jLOAD  ISP  FROM  REG. TABLE. 
:SKIP  LOADING  PC. 

: DESIRED  PC  WILL  BE  LOADED  WITH 
:THE  USE  OF  'RTE'  INSTRUCTION. 

CMP.B 

♦2,SAVECODE 

BEQ.S 

GOGO 

BTST.B 

♦5, TBL  SR 

BNE.S 

N  USER 

MOVE.L 

TBL  USP,A0 

MOVE.L 

♦CALL, -(AO) 

MOVE.L 

A0,USP 

LOAD  USP  AFTER  PUSHING  CALL 

ADDRESS . 

BRA 

GOGO 

N_USER : 

BTST.B 

#4, TBL  SR 

BNE.S 

N  INTR 

MOVE.L 

TBL  ISP, AO 

MOVE.L 

♦CALL, -(AO) 

LONG 

$4E7B8804 

LOAD  ISP  AFTER  PUSHING  CALL 

ADDRESS . 

BRA 

GOGO 

N_INTR : 

MOVE . L 

TBL  SSP,A0 

MOVE.L 

♦CALL, -(AO) 

LONG 

$4E7B8803 

LOAD  ISP  AFTER  PUSHING  CALL 

ADDRESS . 

60G0: 

MOVE.L 

TBL  AO, AO 

:LOAD  AO. IT  WAS  SKIPPED  ABOVE. 

MOVE.W 

♦  $0000, -(SP) 

?PUSH  FORMAT/OFFSET  WORD. 

MOVE.L 

TBL  PC,-(SP) 

rPUSH  THE  PROGRAM  COUNTER  ON 

TO  THE  STACK 

MOVE.W 

TBL  SR, -(SP) 

■ 

BSET.B 

♦7, (SP) 

•SET  T1  (HIGH  TRACE  BIT) . 

BCLR . B 

♦6, (SP) 

:  CLEAR  TO  (LOW  TRACE  BIT)  . 

RTE 

:  (T1  TO  -  1  0)  ALLOWS  TRACE  ALL. 

THIS  WILL  POP  THE  NEW  PC  & 

SR  VAI^UES 

OFF  THE  STACK  AND  CONTINUE 

EXECUTION 

WITH  THE  INSTRUCTION  AT  NEW  PC  VALUE. 

PASS_6 : 

MOVE.B 

♦  5,D4 

LEA 

BRKPTl, A6 

LOAD  A6  WITH  THE  ADDRESS  OF 

FIRST  BREAK 

POINT  ADDRESS  HOLDER. 

CLR_ALL 

:  MOVE . L 

♦$00, (A6) + 

SUB.B 

♦  l,D4 

BNE.S 

CLR  ALL 

BRA 

PASS  5 

/*  GO 

Routine  Ends  */ 

/*  MEMWRITE  Routine  Below  */ 

Function:  MEMWRITE  writes  the  user  specified  data  (Byte/Word/LongWord) 
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Into  user  specified  memory  locations. 

Modified 
Registers :  None . 


Called  by:  MAIN. 


*/ 

MEMWRITE:  MOVEM.L 
JSR 

MOVE.B 

JSR 

MOVEA.L 

MOVE.L 

MOVE.B 

BCLR 

CONTINUE:  JSR 

MOVE.B 

SUB.B 

BNE.S 

BTST 

BNE.S 

BRA 

VERIFY :  BCLR 

TR_ALL :  MOVE . B 

JSR 
SUB.B 
BNE.S 

THERE:  MOVEM.L 

RTS 


D0-D7/A0-A7,-  (SP) 
RUART+ROM 
D3,D4 
GETLONG 
D3,A6 
A6,A5 
D4,D5 
♦  7,D4 
RUART+ROM 
D3,  (A6)  + 

#1,D4 
CONTINUE 
♦7,D5 
VERIFY 
THERE 
#7,D5 
(A5)+,D3 
SUART+ROM 
#1,D5 
TR  ALL 
(SP)+,D0-D7/A0--A7 


GET  SIZE. 

[D4.B]<-  SIZE. 

fA6]<-  MODIFY  ADDRESS. 
SAVE  A6  IN  A5. 


WRITE  TO  MEMORY,  BYTE  BY  BYTE. 

LOOP  UNTIL  SIZE  BYTES  ARE  RECEIVED. 

(ie.,  FOUR  BYTES  IF  SIZE  -  LONGWORD) . 
BIT  #7  OF  SIZE  BYTE  IS  SET  BY  MACINTOSH 
IF  VERIFY  WAS  DESIRED. 

IF  USER  WANTS  TO  VERIFY  THEN  READ  BACK 
AND  SEND  TO  MACINTOSH. 


(RETURN  TO  CALLER. 


/*  MEMWRITE  Routine  Ends  */ 


/★  MEMDISPLAY  Routine  Below  */ 

Function :  MEMDISPLAY  receives  the  user  specified  address  range 

(16  bytes  at  a  time),  and  fetches  the  bytes  from  these 
memory  locations,  and  sends  these  bytes  to  Macintosh. 

Modified 
Registers:  None. 


Called  by:  MAIN. 

*/ 

MEMDISPLAY:  MOVEM.L  D0-D7 /A0-A7 , - (SP) ; 

JSR  GETLONG  ; 

MOVEA.L  D3,A6 
JSR  RUART+ROM 

MOVE.B 


D3,D4 


MOVE.B  (A6)+,D3 


;  [A6]<-  DISPLAY  ADDRESS. 

;GET  LOW  BYTE  OF  COUNT. 

;  [D4.B]<-  COUNT. 

/PARAMETERS  ARE  OBTAINED  NOW,  START  TO  SEND 
/THOSE  MEMORY  CONTENTS  TO  MACINTOSH. 

/BYTE  TO  BE  SENT  IS  IN  D3  NOW. 
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TOUR  1; 


SKPTOUR: 


MOVE.B 

D3,D0 

JSR 

SUART+ROM 

SEND 

THE  BYTE. 

SUB.B 

#1,D4 

BEQ.S 

SKPTOUR 

MOVE.B 

(A6)+,D3 

BYTE 

TO  BE  SENT  IS 

IN 

D3  NOW. 

EOR.B 

n3,D0 

•CHKSUM  WILL  ACCUMULATE  IN  [DO.B] 

JSR 

SUART+ROM 

SEND 

THE  BYTE,  WHICH 

IS  ALREADY 

SUB.B 

#1,D4 

BNE.S 

TOUR  1 

MOVE.B 

D0,D3 

[D3] 

<—  CHKSUM  .  . 

• 

JSR 

SUART+ROM 

SEND 

CHKSUM,  WHICH 

IS 

ALREADY  IN 

MOVEM.L 

(SP)+,D0-D7/A0 - A7 ; 

RTS 

, 

:  RETURN  TO  CALLER 

tD3.B] 


/*  MEMDISPLAY  Routine  Ends  */ 


/*  UPDTFLTBL  Routine  Below  */ 


Function:  UPDTFLTBL  updates  the  Floating  Point  Register  Table. 

It  moves  the  control  registers  as  longwords,  and  the 
Floating  Point  Registers  as  packed,  to  the  table. 

Modified 
Registers:  None. 

Called  by:  TRAPH,  TPvACEHANDLER. 


*/ 

UPDTFLTBL: MOVE. L 

A0,SAVEA0 

;SAVE  AO 

WITHOUT  DISTURBING  THE 

MOVE.L 

#TBL  FPCR,A0 

/  [A0]<-  TABLE  LOWER  BASE  ADDRESS 

WRT  FL :  LONG 

.$F218BC00 

/FMOVEM.L 

FPCR/FPSR/FPIAR, (A0)+ 

LONG 

$F2186C11 

;FMOVE.P 

FPO, (A0)+ 

LONG 

$F2186C91 

;FMOVE.P 

FPl, (A0)+ 

LONG 

$F2186D11 

; FMOVE . P 

FP2, (A0)+ 

LONG 

$F2186D91 

; FMOVE . P 

FP3, (A0)+ 

LONG 

$F2186E11 

; FMOVE. P 

FP4,  (AO)  + 

LONG 

$F2186EA1 

; FMOVE . P 

FP5, (AO) + 

LONG 

$F2186F21 

; FMOVE. P 

FP6, (AO) + 

LONG 

$F2186FA1 

; FMOVE . P 

FP7, (A0)+ 

MOVE.L 

RTS 

SAVEAO,  AO 

9 

r 

/*  UPDTFLTBL  Routine  Ends  */ 


/*  UPDATETBL  Routine  Below  */ 
Function 
Modified 


UPDATETBL  updates  the  register  table.  Moves  the  copies 
of  MC68020  registers,  to  the  table. 
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Registers :  None . 

Called  by:  TRAPH. 

*/ 

UPDATETBL : MOVE . L  AO, SAVEAO  ;SAVE  AO  WITHOUT  DISTURBING  THE  STACK. 

MOVE.L  #TBL_USP,A0  ;tA0]<-  TABLE  LOWER  BASE  ADDRESS. 

MOVEM.L  D0-D7/A0-A6,- (AO) ;LOAD  ALL  DATA  REGS.  AO  IS  LOADED  DUMMY. 


IT  WILL  BE  OVERWRITTEN  ON  NEXT  LINE. 


MOVE.L 

SAVEA0,TBL  AO 

REAL  VALUE  OF  AO  IS  SAVED. 

MOVE.L 

USP,A0 

MOVE.L 

A0,TBL  USP 

USP  IS  LOADED. 

LONG 

$4E7A8803 

(A0)<-  [MSP] 

MOVE.L 

A0,TBL  SSP 

LOAD  MSP. 

LONG 

$4E7A8804 

[A0]<-  [ISP] 

MOVE.L 

A0,TBL  ISP 

LOAD  ISP. 

BTST.B 

#4,TBL  SR 

DID  USER  CHOOSE  TO  USE  ISP  ? . . 

BNE.S 

MSPTR 

OR  MSP  ? . . 

ADD.L 

#28,TBL  ISP 

28  BYTES  STACK  SPACE  IS  USED  BY: 

BRA 

SKIPP 

8  BYTES  BY  TRAP# 15  4  WORD  STACK  FRAME, 

MSPTR : 

ADD.L 

#28,TBL__SSP 

16  BYTES  BY  SAVING  D3,  D4,  A5,  A6 

REGS. 

4  BYTES  BY  BSR  UPDATETBL  IN  TRAP 

15 

HANDLER. 

SKIPP: 

MOVE.L 

22 (SP) ,TBL  PC 

LOAD  PC. (IT  IS  AT  LOCATION  SP+22) 

• 

MOVE.W 

#$00,TBL  SRHI 

LOAD  '$0000"  FOR  SR  HIGH  WORD. 

MOVE.W 

20 (SP) ,TBL_SR 

;LOAD  SR  LOW  WORD.  (IT  IS  AT  LOCATION 

SP+20)  . 

LONG 

$4E7A8801 

MOVE.L 

A0,TBL  VBR 

LOAD  VBR. 

LONG 

$4E7A8002 

MOVE.L 

A0,TBL  CACR 

LOAD  CACR. 

LONG 

$4E7A8802 

MOVE.L 

A0,TBL  CAAR 

LOAD  CAAR. 

MOVE.L 

DO, SAVEDO 

LONG 

$4E7A0001 

[D0]<-  DFC. 

MOVE.L 

D0,TBL  SFC 

DFC  IS  IN  ITS  PLACE. 

LONG 

$4E7A0000 

[D0]<-  SFC. 

LSL.L 

#4, DO 

OR.L 

D0,TBL  SFC 

MOVE.L 

SAVEDO, DO 

MOVE.L 

SAVEA0,A0 

RTS 

RETURN  TO  CALLER. 

/*  UPDATETBL  Routine  Ends  */ 


/*  UPDATETBL2  Routine  Below  */ 

Function:  UPDATETBL2  updates  the  register  table.  Moves  the  copies 

of  MC68020  registers,  to  the  table.  Slightly  different  from 
UPDATETBL . 
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Modified 
Registers :  None . 


/ 

Called  by:  DOWNLOAD. 

1 

UPDATETBL2:  MOVE, 

L  A0,SAVEA0 

SAVE  AO  WITHOUT  DISTURBING 

THE  STACK. 

MOVE.L 

♦TBL  USP,A0 

[A0]<-  TABLE  LOWER  BASE  ADDRESS. 

MOVEM.L 

D0-D7/A0-A6,-(A0 

;LOAD  ALL  DATA  REGS.  AO  IS 

LOADED  DUMMY 

IT  WILL  BE  OVERWRITTEN  ON  NEXT  LINE. 

MOVE.L 

SAVEAO,TBL  AO 

REAL  VALUE  OF  AO  IS  SAVED. 

MOVE.L 

USP,A0 

MOVE.L 

AO, TBL  USP 

USP  IS  LOADED. 

LONG 

$4E7A8803 

[A0]<“  [MSP]. 

MOVE.L 

AO, TBL  SSP 

LOAD  MSP. 

LONG 

$4E7A8804 

[A0]<-  [ISP]. 

MOVE.L 

AO, TBL  ISP 

LOAD  ISP. 

BTST.B 

#4, TBL  SR 

DID  USER  CHOOSE  TO  USE  ISP 

?.  . 

BNE.S 

MSPTR2 

OR  MSP  ? . . 

ADD.L 

#$48, TBL  ISP 

BRA 

SKIPP2 

MSPTR2 :  ADD . L 

♦$48,TBL  SSP 

SKIPP2:  MOVE.L 

♦$1000, TBL  PC 

LOAD  '$1000'  FOR  PC  !... 

MOVE.W 

#$00, TBL  SRHI 

“LOAD  '$0000'  FOR  SR  HIGH  WORD. 

MOVE.L 

#TBL  SR, AO 

MOVE.W 

SR, <A0) 

LOAD  SR  LOW  WORD. 

LONG 

$4E7A8801 

MOVE.L 

AO, TBL  VBR 

LOAD  VBR. 

LONG 

$4E7A8002 

MOVE.L 

AO, TBL  CACR 

LOAD  CACR. 

LONG 

$4E7A8802 

MOVE.L 

AO, TBL  CAAR 

LOAD  CAAR. 

MOVE.L 

DO, SAVEDO 

LONG 

$4E7A0001 

[D0]<-  DFC. 

MOVE.L 

DO, TBL  SFC 

DFC  IS  IN  ITS  PLACE. 

LONG 

$4E7A0000 

[D0]<-  SFC. 

LSL.L 

#4, DO 

OR.L 

DO, TBL  SFC 

MOVE.L 

SAVEDO, DO 

MOVE.L 

SAVEA0,A0 

RTS 

RETURN  TO  CALLER. 

/* 

UPDATETBL2  Routine  Ends  */ 

/* 

UPDATETBL3  Routine  Below  */ 

Function:  UPDATETBL3  updates  the  register  table.  Moves  the  copies 

of  MC68020  registers,  to  the  table.  Slightly  different  from 
UPDATETBL  and  UPDATETBL2 . 

Modified 
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Registers :  None . 

Called  by:  TRACEHANDLER . 


*/ 

UPDATETBL3:  MOVE.L  A0,SAVEA0  /SAVE  AO  WITHOUT  DISTURBING  THE  STACK. 

MOVE.L  #TBL_USPrAO  ;[A0]<“  TABLE  LOWER  BASE  ADDRESS. 

MOVEM.L  D0-D7/A0-A6,-(A0) /LOAD  ALL  DATA  REGS.  AO  IS  LOADED  DUMMY 

/IT  WILL  BE  OVERWRITTEN  ON  NEXT  LINE. 


MOVE . L  SAVEAO , TBL_A0 
MOVE.L  USP,AO 
MOVE . L  AO , TBL_USP 
LONG  $4E7A8803 

MOVE.L  A0,TBL_SSP 
LONG  $4E7A8804 

MOVE . L  AO, TBL_ISP 
BTST.B  #4,TBL_SR 
BNE . S  MSPTR3 


REAL  VALUE  OF  AO  IS  SAVED. 

USP  IS  LOADED. 

[A0]<-  [MSP]. 

LOAD  MSP. 

[A0]<-  [ISP]. 

LOAD  ISP. 

DID  USER  CHOOSE  TO  USE  ISP  ? . . 
OR  MSP  7 . . 


ADD.L  #16,TBL_ISP 
BRA  SKIPP3 


MSPTR3:  ADD.L  #16,TBL  SSP 


SKIPP3:  MOVE.L  6(SP),TBL_PC 

MOVE.W  #$00,TBL  SRHI 


XX  BYTES  STACK  SPACE  IS  USED  BY: 

8  BYTES  BY  TRAP#14  4  WORD  STACK  FRAME, 

16  BYTES  BY  SAVING  D3,  D4,  A5,  A6  REGS. 

4  BYTES  BY  BSR  UPDATETBL  IN  TRACE  HANDLER. 
LOAD  PC.  [IT  IS  AT  LOCATION  SP+6) . 

LOAD  '$0000'  FOR  SR  HIGH  WORD. 


MOVE . W  4 ( SP ) , TBL_SR 
LONG  $4E7A8801 
MOVE.L  A0,TBL_VBR 
LONG  $4E7A8002 
MOVE . L  AO , TBL_CACR 
LONG  $4E7A8802 
MOVE . L  AO , TBL_CAAR 
MOVE.L  D0,SAVED0 
LONG  $4E7A0001 
MOVE.L  D0,TBL_SFC 
LONG  $4E7AOOOO 
LSL.L  #4, DO 
OR.L  D0,TBL_SFC 
MOVE.L  SAVED0,D0 
MOVE.L  SAVEAO, AO 
RTS 


/LOAD  SR  LOW  WORD.  (IT  IS  AT  LOCATION  SP+4) 

LOAD  VBR. 

LOAD  CACR. 

LOAD  CAAR. 

[D0]<-  DFC. 

DFC  IS  IN  ITS  PLACE. 

[D0]<-  SFC. 

RETURN  TO  CALLER. 


/*  UPDATETBL3  Routine  Ends  */ 


/*  UPDTFLREGS  Routine  Below  */ 

Function:  UPDTFLREGS  updates  the  Floating  Registers,  with  the  data 

sent  by  the  Macintosh . 
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Modified 
Registers :  None . 

Called  by:  GO. 


*/ 


JPDTFLREGS  :MOVE 

:.L  #TBL  FPCR,A0 

/ 

LONG 

$F2189C00 

;FMOVEM.L 

(AO) +, FPCR/FPSR/FPIAR 

LONG 

$F2184C00 

;FMOVE.P 

(AO)  +,FP0 

LONG 

$F2184C80 

;FMOVE.P 

(AO)  +,FP1 

LONG 

$F2184D00 

/FMOVE.P 

(A0)+,FP2 

LONG 

$F2184D80 

;FMOVE.P 

(A0)+,FP3 

LONG 

$F2184E00 

;  E'MOVE .  P 

(A0)+,FP4 

LONG 

$F2184E80 

; FMOVE.P 

(AO)  +,FP5 

LONG 

$F2184F00 

; FMOVE . P 

(AO)  +,FP6 

LONG 

$F2184F80 

/FMOVE.P 

(AO)  +,FP7 

RTS 

f 

UPDTFLREGS 

Routine  Ends  */ 

/* 

UPDATEREG 

Routine  Below  */ 

Function : 

UPDATEREGS  updates 

the  registers. 

with  the  data 

sent  by  the  Macintosh. 

Modified 
Registers :  None . 


Called  by:  GO. 

*/ 

UPDATEREGS :  MOVE . L  #TBL_D0 , AO 


MOVEM.L 

(A0)+,D0-D7 

ADD.L 

#4, AO 

MOVEM.L 

(A0)+,A1-A6 

MOVE.L 

TBL  VBR, AO 

LONG 

$4E7B8801 

MOVE.L 

TBL  CACR, AO 

LONG 

$4E7B8002 

MOVE.L 

TBL  CAAR, AO 

LONG 

$4E7B8802 

MOVE.L 

TBL  SFC,D0 

AND.L 

#$0000000F,D0 

LONG 

$4E7B0001 

MOVE.L 

TBL  SFC,D0 

LSR.L 

#4, DO 

LONG 

$4E7BOOOO 

MOVE.L 

TBL  DO, DO 

RTS 

SKIP  AO  IN  THE  TABLE  (RESTORED  IN  "GO") . 
READY  FOR  VBR. 

LOAD  VBR  FROM  REGISTER  TABLE. 

READY  FOR  CACR. 

LOAD  CACR  FROM  REGISTER  TABLE. 

READY  FOR  CAAR. 

LOAD  CAAR  FROM  REGISTER  TABLE. 


[DFC]<-[D0] . 


[SFC]<-[D0] . 

SR  WILL  BE  POPPED  OFF  THE  STACK  LATER. 


/*  UPDATEREG  Routine  Ends  */ 
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/*  Interrupt  Level  4  HANDLER  Routine  Below  */ 

Function:  HANDLER  clears  Dl  to  indicate  a  '0'  has  been  received. 

A19,  A17  bits  of  the  return  address  are  cleared  to  diseible 
further  interrupts,  after  RTE. 

Modified 
Registers :  Dl . 

Called  by:  In  case  of  level  4  Interrupt. 

*/ 

HANDLER:  ANDI.L  #$FFF5FFFF, 2 (SP) ; 

CLR.B  Dl  ; 

RTE  ; 

/*  Interrupt  Level  4  HANDLER  Routine  Ends  */ 


/*  TRAP  HANDLER  Routine  Below  */ 


Function:  TRAPH,  Handles  Trap  15. 

Puts  all  Registers  &  Stack  Pointer  Contents  to  Memory, 
(namely  to  the  register  table) ,  and  waits  for  Command 
from  Macintosh. 

TRAP  Instruction 

SSP-2  ->  SSP  FORMAT/VECTOR  OFFSET  ->  (SSP) 

SSP-4  ->  SSP  PC  ->  (SSP) 

SSP-2  ->  SSP  SR  ->  (SSP) 

VECTOR  ADDRESS  ->  PC 

Modified 

Registers:  SP,  SR. 


Called  by:  In  case  of  Trap  15  Occurs. 

*/ 

TRAPH:  MOVEM.L  D3-D4/A5-A6, - (SP) ;SAVE  THE  REGISTERSTO  BE  MODIFIED. 


SUB.L  #2,18(SP) 
BSR  UPDATETBL 
TST.B  COP__ENB 
BEQ.S  SKP  C3 


[PC]<“  [PC] -2  (THE  ONE  SAVED  ON  STACK) . 
LOAD  REG  TABLE  BEFORE  UPLOADING  IT. 

IF  USER  DOES  NOT  ENABLE  COPROCESSOR 
DO  NOT  UPDATE  FLOATING  REGISTER  TABLE. 


BSR  UPDTFLTBL 


SKP_C3:  MOVE.L  18(SP),D3 

MOVE.W  #4,D4 

LEA  BRKPT1,A6 

SEARCH:  CMP.L  (A6)+,D3 

DBEQ  D 4, SEARCH 

CMP.W  #0,D4 

BLT  DSPLY 


[D3]<-  INSTRUCTION  ADDR.  CAUSING  TRAP_15. 

ONE  OF  THE  BREAKPOINTS  SHOULD  BE  EQUAL 
TO  THAT  ADDRESS. 


SUB.L  #4,A6  ;IF  SO  DECREMENT  TAHT  BREAKPOINT'S  COUNT. 

MOVE.L  (A6),A5  ; 

MOVE.W  -18(A6),(A5)  ;PUT  THE  ORIGINAL  CODE  BACK  TO  ITS  PLACE. 
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NOT_SUB ; 

DSPLY: 

SKP_C4 : 
LOOK: 

DO  NTH: 


SKPDSPLY ; 
RESTORE: 


CMPI.L 

♦  0,20(A6) 

BEQ.S 

NOT  SUB 

SUB.L 

♦  l,20(A6) 

CMP.B 

#0,DISP  STEP 

BNE.S 

DSPLY 

CMP.L 

#0,20(A6) 

BNE.S 

SKPDSPLY 

BSR 

UPLOAD 

BSR 

SCNTS 

TST.B 

COP  ENB 

BEQ.S 

SKP  C4 

BSR 

FUPLOAD 

MOVE.L 

#5,D4 

LEA 

BRKPTl, A6 

CMP.L 

#0,  (A6)  + 

BEQ.S 

DO  NTH 

MOVE.L 

-4  (A6)  ,  AS 

MOVE.W 

-22 (A6) , (AS) 

SUB.L 

#1,D4 

BNE.S 

LOOK 

MOVE.L 

#MAIN, 18 (SP) 

BRA 

RESTORE 

BSET.B 

#7,16(SP) 

BCLR . B 

#6,16(SP) 

BCLR .  B 

#4,16(SP) 

BSET.B 

#S,16(SP) 

IF  THE  BREAKCOUNT  IS  ZERO,  DON'T  DECREMENT 
IT.  SO  EVERY  TIME  THAT  ADDRESS  IS  REACHED 
A  BREAKPOINT  WILL  OCCUR. 

IF  DISPLAY_STEP  IS  SET,  THEN  DISPLAY  THE 
RESULTS  TO  THE  USER  EACH  TIME  THAT 
IS  REACHED,  REGARDLESS  OP  ITS  COUNT. 

IF  DISPLAY_STEP  IS  NOT  SET,  THEN  DISPLAY 
ONLY  WHEN  ITS  COUNT  DECREMENTS  TO  ZERO, 
SEND  BACK  THE  MOST  RECENT  BREAKCOONTS. 


RESTORE  ALL  ORIGINAL  INSTRUCTION  CODES 
HAVING  BREAKPOINTS  BEFORE  RETURNING  TO 
MAIN. 


IF  DISPLAYED  THEN  LOOP  IN  MAIN  WAITING  FOR 
THE  NEXT  COMMAND.  (SO  PUT  MAIN  ADDR.  IN 
ITS  PLACE  ON  THE  STACK) .  OTHERWISE  DON'T 
RETURN  TO  MAIN  PGM,  INSTEAD  CONTIUNE  WITH 
THE  EXECUTION  OF  THE  NEXT  INSTRUCTION. 

SET  T1  OF  STAUS  REGISTER. 

CLEAR  TO  OF  STATUS  REGISTER.  (TRACE  ALL) . 

WILL  BE  IN  SUPERVISOR  MODE  ON  EXIT. 


MOVEM.L  (SP)+,D3-D4/A5-A6; 


RTE 


/*  TRAP  HANDLER  Routine  Ends  */ 


/*  Interrupt  Level  6  (ABORT)  HANDLER  Routine  Below  */ 

Function:  ABORT  arranges  the  Stack  (for  compatibility  with  the  TRAP 
HANDLER  Routine),  and  branches  to  TRAPH. 

Modified 

Registers:  SP,  SR. 

Called  by:  In  case  of  Level  6  Interrupt,  which  is  generated  to 
provide  ABORT. 

*/ 

ABORT:  ORI  ♦MASK_7,SR  /DISABLE  INTERRUPTS. 

ANDI.W  #$2FFF,SR  /DISABLE  TRACE. 

ADDI.L  #2,2  (SP)  /COMPENSATE  FOR  SUBTRACTION. 

BRA  TRAPH  /CONTINUE  WITH  TRAPH. 
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f*  Interrupt  Level  6  (ABORT)  HANDLER  Routine  Ends  */ 


/*  STACKFRAME  Routine  Below 

Function:  STACKFRAME  just  arranges  the  stack.  The  address  of  this 

routine  is  placed  in  the  exception  vector  table  entries, 
for  uninplemented  exceptions.  The  purpose  is  to  prevent 
system  crash,  when  those  unimplemented  exceptions  occur. 

Modified 

Registers :  SF . 


Called  by:  In  case  of  unimplemented  exceptions. 

*/ 

STACKFRAME: AND I. W  #$2FFF, (SP)  /DISABLE  TRACE. 

ANDI.W  #INTR_ENB, (SP)  /ENABLE  INTERRUPTS. 

MOVE.L  #MAIN,2(SP) 

RTE  / 


/*  STACKFRAME  Routine  Ends  */ 


/*  GETLONG  Routine  Below  */ 


Function:  GETLONG  receives  a  longword,  which  is  sent  by  the  Macintosh. 

Modified 

Registers:  D3,  which  passes  the  received  longword  to  the  calling  routine. 
Called  by:  DOWNLOAD,  GO,  MEMWRITE,  MEMDISPLAY. 


*/ 

GETLONG : 


MOVEM.L  D0-D2/D4-D7/A0-A7,-(SP) / 

MOVE.L  #8,D6  /COUNTER  TO  SHIFT  LOW  BYTE  TO  HIGH  BYTE. 


OF  LOAD  ADDRESS, 
ITS  PLACE. 

OF  LOAD  ADDRESS, 


JSR  RUART+ROM  /GET  BYTE  #3 

LSL.L  D6,D3  /SHIFT  IT  TO 

JSR  RUART+ROM  /GET  BYTE  #2 

LSL.L  D6,D3 

JSR  RUART+ROM  /GET  BYTE  #1  OF  LOAD  ADDRESS 

LSL.L  D6,D3  /MOVE  BYTE  #1  ITS  POSITION. 

JSR  RUART+ROM  /GET  BYTE  #0  OF  LOAD  ADDRESS 

MOVEM.L  (SP)+,D0-D2/D4-D7/A0-A7/ 

RTS  /RETURN  TO  CALLER. 


(  LS  BYTE  ) 


/*  GETLONG  Routine  Ends  */ 


/*  SENDERROR  Routine  Below  */ 

Function:  SENDERROR  sends  a  lot  of  successive  zeros,  which  will 

cause  a  Frame  Error,  and  its  detection  on  the  Macintosh. 
So,  Macintosh  will  know  that  something  went  wrong  during 
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transmission  of  data  to  the  ECB. 

Modified 

Registers:  DO^Dl. 

Called  by:  RUART,  DOWNLOAD,  LDREGTBL. 

*/ 


SENDERROR:MOVE.B 

#BRKCOUNT,DO 

:THAT  MANY  TIMES  ZERO  BITS 

WILL  BE  SENT. 

STEPl: 

JSR 

SEND  ZER+DELAYl 

•SEND  A  ZERO. 

SUB.B 

#1,D0 

BNE.S 

STEPl 

MOVE.W 

#MAXINT,D0 

■ 

STEP 4: 

MOVE.W 

♦10, D1 

:FOR  10  X  100  MICRO  SECOND 

DELAY. 

STEP 2 : 

MOVE.L 

#7,D2 

STEPS: 

DBF 

D2, STEPS 

•100  MICRO  SECOND  DELAY. 

SUB.W 

#1,D1 

' 

BNE.S 

STEP  2 

SUB.W 

#1,D0 

■ 

BNE.S 

RTS 

STEP  4 

' 

’ 

/*  SENDERROR  Routine  Ends  */ 

/*  SCNTS  Routine  Below  */ 

Function:  SCNTS  sends  the  most  updated  BreakCounts  to  the  Macintosh. 

Modified 

Registers :  None , 


Called  by:  TRACEHANDLER,  TRAP HANDLER, 


*/ 

SCNTS : 

MOVEM .  L 

DS-D4/A6,-(SP) 

MOVE.L 

#5,D4 

MOVE.L 

#BRKCNTl+2,  A6 

FORALL : 

MOVE.B 

(A6) +,DS 

JSR 

ROM+SUART 

MOVE.B 

(A6)+,DS 

JSR 

ROM+SUART 

ADDA.L 

#2,A6 

SUB.L 

#1,D4 

BNE.S 

FORALL 

MOVE.B 

VIOL  FLAG,  D 3 

SEND 

PRIVILAGE  VIOLATION  CODE. ($55  FOR  YES, 

JSR 

ROM+SUART 

$AA 

FOR  NO) . 

MOVEM .  L 
RTS 

(SP) +,D3-D4/A6 

/*  SCNTS  Routine  Ends  */ 
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/*  TRACEHANDLER  Routine  Below  */ 

Function:  TRACEHANDLER  handles  the  Trace  case. 

Modified 

Registers:  SP^  SR. 


Called  by:  In  case  of  Trace  (Trace  All  or  Trace  Branch) . 
*l 

TRACEHANDLER:  MOVEM.L  D3-D4/A5-A6, - (SP) ; 


MOVE.L 

24 (SP) ,D3 

[D3]  -  FAULTING  INSTRUCTION  ADDRESS. 

MOVE.W 

#4,D4 

LEA 

BRKPTl, A6 

SEEK: 

CMP.L 

(A6) +,D3 

DBEQ 

D 4, SEEK 

CMP.W 

#0,D4 

BLT 

SRC  FAIL 

MATCH: 

SUB.L 

#4,A6 

MOVE.L 

(A6) ,A5 

MOVE.W 

(A5)  ,  -18  (A6) 

MOVE.W 

♦TRAP  15, (A5) 

SRC_ 

FAIL : 

MOVEM.L 

(SP)+,D3-D4/A5-A6; 

BTST . B 

♦  6,TBL  SR 

BNE.S 

TRC  BRA 

BTST.B 

♦7,TBL  SR 

BNE.S 

TRC  ALL 

BRA 

NO  TRACE 

TRC_ 

BRA: 

CMP  .B 

♦1,FIRSTINST 

BEQ.S 

NOT  SHOW 

BSR 

UPDATETBL3 

BSR 

UPLOAD 

BSR 

SCNTS 

TST.B 

COP  ENB 

IF  USER  DOES  NOT  ENABLE  COPROCESSOR 

BEQ.S 

SKP  C5 

BSR 

UPDTFLTBL 

BSR 

FUPLOAD 

SKP_ 

_C5  : 

ANDI.W 

♦$2FFF, (SP) 

DISABLE  TRACE.  Tl-TO  ->  NO  TRACE. 

BSET.B 

♦5, (SP) 

WILL  BE  IN  SUPERVISOR  MODE  ON  EXIT. 

MOVE.L 

#MAIN,2 (SP) 

WILL  RETURN  TO  MAIN  PROGRAM. 

BRA 

FINE 

NOT_ 

SHOW : 

BCLR . B 

#7, (SP) 

SHOULD  BE  TRACE  ALL. 

BSET.B 

♦  6,  (SP) 

Tl-TO  ->  TRACE  ALL. 

BRA 

FINE 

TRC_ 

ALL: 

BSR 

UPDATETBL3 

BSR 

UPLOAD 

BSR 

SCNTS 

SEND  THE  MOST  RECENT  BREAKCOUNTS . 

TST.B 

COP  ENB 

IF  USER  DOES  NOT  ENABLE  COPROCESSOR 

BEQ.S 

SKP  C6 

BSR 

UPDTFLTBL 

BSR 

FUPLOAD 

SKP 

C6 : 

ANDI.W 

#$2FFF, (SP) 

CLEAR  TRACE  BITS  NOT  TO  TRACE  OURSELVES 
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BSET.B 

#5, (SP) 

MOVE.L 

#MAIN,2 (SP) 

BRA 

FINE 

NO  TRACE:  BCLR.B 

#7,  (SP) 

FINE :  MOVE . B 

#0,FIRSTINST 

RTE 

/*  TRACEHANDLER 

Routine  Ends 

*/ 

/*  VIOLHANDLER 

Routine  Below 

WILL  BE  IN  SUPERVISOR  MODE  ON  EXIT. 
WILL  RETURN  TO  MAIN  PROGRAM. 

SINCE  USER  WANTS  NO  TRACE,  CLEAR  Tl. 
NOT  FIRST  INSTRUCTION  ANYMORE. 


Function;  VIOLHANDLER  handles  Privilege  Violations. 

Modified 

Registers:  SP . 

Called  by:  In  case  of  Privilage  Violation. 
VIOLHANDLER: 


MOVE.B 

#$55, VIOL  FLAG 

r 

ADD.L 

#2,2(SP) 

; COMPENSATE 
; BREAKPOINTS 

FOR 

1  IN 

THE  SUBTRACTION 
TRAPH  ROUTINE. 

FOR 

BRA 

TRAPH 

/SINCE  BOTH 

PRIVILEGE  VIOLATION 

AND  THE 

TRAP_15  HAVE  THE  SAME  STACK  FRAME. 
PC  POINTS  TO  FAULTING  INSTRUCTION. 


/* 

VIOLHANDLER  Routine  Ends  */ 

/* 

CALL 

(Subroutine  Test) 

Below  */ 

CALL: 

WORD  TRAP_15 

• 

f 

/* 

CALL 

(Subroutine  Test) 

Ends  */ 

/* 

MSMORY  ALLOCATION  */ 

TMPPTl ; 

LONG 

$0000 

/THIS  WILL  BE  USED  FOR  SAVING  CODE 

PARTS 

TMPPT2 : 

LONG 

$0000 

/TAKEN  OUT  OF  CODE  FOR  TRAP 15  INSERTION. 

TMPPT3 : 

LONG 

$0000 

/TMPPTl  WILL  HOLDTHE  PIECE  OF  CODE 

TAKEN 

TMPPT4 : 

LONG 

$0000 

/OUT  FOR  INSERTION  A  TRAP  15  CODE  FOR 

TMPPT5 : 

LONG 

$0000 

/BREAKPOINT  #1  (BRKPTl) . 

BRKPTl: 

LONG 

$0000 

/THIS  WILL  BE  USED  FOR  STORING  THE 

BRKPT2 : 

LONG 

$0000 

/ADDRESSES  AT  WHICH  THE  BREAKPOINT 

BRKPT3 : 

LONG 

$0000 

/WILL  OCCUR. 

BRKPT4 : 

LONG 

$0000 

/ (CORRESPONDING  TO  5  DIFFERENT  BREAK 

BRKPT5 : 

LONG 

$0000 

/POINTS) . 

BRKCNTl : 

LONG 

$0000 

/THE  BREAKPOINT  COUNTS  ASSOCIATED 
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BRKCNT2 : 

LONG 

$0000 

;WITH  EACH  BRAEKPOINT  WILL  BE  STORED 

BRKCNT3 : 

LONG 

$0000 

;AT  THESE  BRKCNTx  (1  THRU  5) . 

BRKCNT4 : 

LONG 

$0000 

f 

BRKCNT5 : 

LONG 

$0000 

9 

SAVEAO : 

LONG 

$0000 

;A0  WILL  BE  SAVED  HERE  TEMPORARILY. 

SAVED 0 : 

LONG 

$0000 

;D0  WILL  BE  SAVED  HERE  TEMPORARILY. 

SAVESR ; 

WORD 

$0000 

/THE  STATUS  REG.  WILL  BE  SA\’ED  HERE. 

SAVECODE : 

BYTE 

$00 

/TEMP  STORAGE  FOR  MAC  CODE. 

FIRSTINST 

:BYTE 

$00 

/THIS  IS  FOR  FIRST  INSTRUCTION  WHICH 
/  WILL  BE  TRACED  FOR  SINGLE  STEP. 

DISP  STEP 

:BYTE 

$00 

/WILL  THE  STEPS  BE  DISPLAYED  OR  NOT  ? 

VIOL  FLAG: BYTE 

$00 

/PRIVILAGE  VIOLATION  FLAG. 

COP  ENB: 

BYTE 

$00 

/USER  WANTS  TO  USE  COPROCESSOR. 

LAST: 

NOP 

END 

9 

/*  ROM  Resident  Routines  End  */ 
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APPENDIX  D:  SERIAL  COMMUNICATION  IN  SOFTWARE 


RECEIVING 


Level  four  interrupt  is  used  to  sense  the  RS232  input.  An  interrupt  is 
generated  when  a  logic  one  is  present  at  RS232  input .  But  before  this 
happens,  address  lines  A19  and  A17  have  to  be  made  high,  thus  enabling  the 
AND  gate  which  produces  the  level  four  interrupt . 

In  order  to  enable  this  interrupt,  first  the  address  lines  A17  and  A19 
are  forced  to  be  HIGH,  which  is  done  by  JMP  IMTR_CHK+NEXTx,  in  RUART 
routine.  But,  since  some  amount  of  time  is  needed  to  acknowledge  an 
interrupt,  several  NOP  instructions  are  added  following  the  JMP 
INTR_CHK+NEXTx  instruction.  This  guarantees  that  previous  address  stay 
unchanged  while  the  microprocessor  executes  these  NOPs .  By  doing  this,  the 
address  bits  A17  and  A19  are  kept  high  enough  for  the  interrupt  to  be 
acknowledged  by  the  CPU . 


Bow  Incoming  bits  are  sensed  ? 

The  time  that  CPU  spends  by  executing  the  JMP  INTR_CHK+NEXTx,  and  the 
following  several  NOP  instructions  can  be  considered  as  a  sampling  window. 
If  an  interrupt  occurred  during  the  sanqpling  window,  program  execution  is 
continued  with  the  level  four  interrupt  handler  routine.  This  routine 
first  forces  the  address  lines  A19  and  A17  to  zero,  thus  disabling  the  AND 
gate  which  senses  the  RS232  line.  As  a  consequence,  further  interrupts  are 
disabled. 

Following  this  instruction,  routine  clears  register  Dl.  After  RTE, 
instruction  execution  continues  from  where  it  was  previously.  Then 
register  Dl,  which  is  set  to  one  before  receiving  each  incoming  bit,  is 
tested.  If  its  content  is  zero,  this  shows  that  a  level  four  interrupt  did 
occur,  which  means  a  logical  zero  is  received  from  RS232  input.  Otherwise, 
if  Dl  still  contains  a  one,  this  means  that  a  logical  one  is  received. 


Bow  Incoming  bytos  mrm  roonlvnd  ? 

The  receiving  routine,  RUART,  looping  all  the  time,  checks  for  the 
RS232  input.  RS232  line,  when  it  is  idle,  stays  at  high  voltage  level. 
After  sensing  the  start  bit,  eight  bits  are  received  and  shifted  in  to 
lower  byte  of  D3.  The  reception  of  that  byte  ends  with  the  detection  of 
the  stop  bits.  If  a  frame  error  occurs  during  reception,  RS232  input  to 
the  Macintosh  is  kept  low  for  a  while  and  the  user  is  alerted. 
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More  detailed  information  can  be  obtained  from  Appendix  C.  (Source 
code  of  ecb.asm) . 


TRANSMITTING 


SUART  routine  sends  a  byte  which  is  in  D3 .  In  SUART,  first  by  the 
instruction  JSR  SEND_ZER+DEIiAYl,  by  sending  a  zero  bit  the  start  bit  is 
sent.  Here,  DELAYl  subroutine  provides  104.7  microseconds  delay  between 
the  bits  to  be  transmitted.  Following  the  start  bit,  eight  bits  are  sent 
which  are  the  bits  in  the  lower  byte  of  D3.  JSR  SEND_ONE+DELAYl  or 
SEND_ZER+DELAY1  is  used  in  order  to  send  a  ONE  or  a  ZERO  bit . 

More  detailed  information  can  be  obtained  from  Appendix  C  (Source  code 
of  ecb.asm) . 
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APPENDIX  E:  IMPLEMENTATION  OF  SOFTWARE  ABORT 


ABORT 

Abort  is  a  very  beneficial  option  to  the  user.  About  its 
implementation  on  the  ECB:  when  the  Abort  button  is  pressed,  a  level  six 
autovectored  interrupt  is  generated. 

During  the  first  design  phase  of  the  debugger  it  was  intended  to 
support  the  Abort  in  software.  If  a  long  enough  Break  could  be  sent  to  the 
ECB,  then  this  could  be  interpreted  as  a  user  intention  for  Abort.  This 
idea  did  not  work.  Because  when  the  user  program  enters  in  to  an  endless 
loop  or  just  gets  out  of  control  (these  two  situations  can  occur  right 
after  Go  menu) ,  since  the  Macintosh  will  still  be  waiting  for  information 
from  the  ECB  (which  will  never  come) ,  the  Macintosh  will  be  locked  and 
there  is  no  way  to  get  out  of  Go  menu  and  send  a  Break  to  the  ECB.  For 
this  reason,  the  Abort  option  was  decided  to  be  implemented  in  hardware. 

At  this  point,  the  design  idea  was  to  make  this  interrupt,  a  level 
seven,  non-maskable  interrupt.  But  later  it  was  noticed  that  it  would  not 
work.  Because  pressing  the  Abort  button  once,  caused  many  interrupts,  each 
non-maskable .  To  overcome  this  problem,  using  a  debouncing  circuit  could 
be  a  choice,  but  the  tradeoff  was  more  hardware.  For  this  reason  a  level 
six  interrupt  was  found  to  be  appropriate.  In  this  way,  when  the  Abort 
button  is  pressed  once,  it  still  creates  many  level  six  interrupts,  but 
only  the  first  one  is  processed  and  the  rest  is  ignored.  At  the  entry  on 
the  Abort  handler  routine,  interrupts  are  diseibled,  so  the  interrupts 
caused  by  the  bouncing  of  the  Abort  button  is  ignored. 
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APPENDIX  F:  OPERATING  INSTRUCTIONS 


INSTRUCTIONS 


1-  With  Macintosh  off,  insert  Disk  "C  Compiler"  into  Floppy  Disk  Slot . 

2-  Turn  on  Macintosh.  Macsbug  is  installed,  Lightspeed  C  is  started 
immediately. 

3-  Now,  you  may  select  the  project.  Double-Click  the  project  file:  Tutor20 
pi.  (Double-Click  Tutor20  pi  means;  move  the  mouse  so  the  arrow  for  the 
mouse  is  on  the  line  with  the  name  Tutor20  pi,  and  click  the  button  on 
top  of  the  mouse,  twice,  quickly.) 

On  the  upper  right  corner  of  the  screen,  you  can  see  the  files,  containec 
in  this  project. 

4-  In  order  to  be  able  to  create  your  assembly  language  prograun, 
double-click  on  the  file  "test.c". 

5-  Now,  you  may  start  editing  your  program.  But,  it  i,.  advisable  to  make 
test.c  the  only  file  you  work  on,  saving  other  filee,  if  they  exist, 
using  other  file  names.  To  save  a  copy  of  test.c  as  backup. c  and  then  be 
able  to  modify  test.c,  drag  File  to  Save  A  Copy  As  (Drag  File  to  Save  A 
Copy  As...  means,  using  the  mouse,  click  button  down  on  the  "File"  menu, 
hold  the  button  down  as  mouse  is  moved  down  to  "Save  A  Copy  As.. ."  and 
release  the  mouse.) 

Type  the  name  of  the  new  file  (Actually,  a  copy  of  test.c),  backup. c 
and  hit  carriage  return. 

6-  Do  not  alter  any  of  the  lines,  unless  told  otherwise.  User  program  area 
is  clearly  shown  in  test.c.  User  should  type  his  program  between  the 
lines  "***  USER  PROGRAM  ***"  and  "***  USER  PROGRAM  ENDS  ***". 

7-  Labels  begin  with  a  "@"  sign,  followed  by  digits.  (You  are  not  allowed  to 
use  labels  @1,  @2,  @3,  which  are  already  defined  and  used  by  test.c 
program. ) 

Hexadecimal  numbers  begin  with  a  "Ox"  (Zero  Eks) ,  followed  by  digits  or 
a-f  or  A-F . 

Variables  (e.g.,  i)  are  declared  in  C  above  the  line  "asm{",  (e.g.,  int  i 

and  are  accessed  using  index  addressing  with  address  register  A6  and  a 
negative  offset. 

8-  Drag  project  to  Run.  Test.c  will  be  compiled  and  the  debugger  will  run. 

You  should  see  Apple,  File,  Functions  menus  on  the  screen. 

9-  If  you  want  to  utilize  MC68881  Coprocessor,  or  if  you  want  to  have  a 

hard  copy  of  what  is  going  to  be  displayed  on  the  screen,  or  some  other 
options;  pull  down  Functions  menu  and  click  the  mouse  on  Options  menu. 
Here,  you  will  see  a  button  corresponding  to  each  option.  You  can  have  | 

any  option  "ON"  by  just  clicking  it  (When  it  is  darkened,  that  means  you 
have  that  option,  or  vice  versa) .  Click  "Quit"  to  get  out  of  that  menu.  i 
If  you  want  to  use  Coprocessor  instructions  in  your  program,  you  have  to 
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have  the  "Coprocessor”  option  at  this  step,  before  Downloading.  You  are 
not  allowed  to  first  Download  and  then  select  "Coprocessor"  option.  This 
will  lock  the  system. 

10- Pull  down  Functions  menu  and  click  the  mouse  on  Download  option.  This 
will  download  your  progreun  to  the  ECB.  Your  program  will  be  loaded  in  RAM 
starting  at  1000  (Hexadecimal)  address. 

11- Now  you  need  to  select  "Go"  menu.  The  default  Program  Counter  value  is 
1000  Hex.  You  may  change  this  address  if  you  want  to. 

A  very  inportant  point  needs  to  be  explained.  That  is,  if  you  are  going 
to  select  "Goto"  option  within  the  "Go"  menu,  your  program  has  to  end 
with  a  TRAP  #15  instruction,  or  if  you're  going  to  select  "Call"  option 
an  RTS  instruction  should  be  at  the  end  of  your  program. 


WHAT  CAN  YOU  DO  IN  A  PARTICULAR  MENU  ? 


When  you  pull  down  the  Functions  menu,  you  will  see  the  following 
selections . 

01 -Download 
02 -Go 

03-Registers 
04 -Floating  Regs 
05-Memory  Display 
06-Memory  Write 
07 -Options 
08-Previous  Screen 
09-Clear  Screen 
10-Help 


DOWNLOAD 


Downloads  the  user  program  from  the  Macintosh  to  the  ECB,  at  a  Baud 
rate  of  9600.  After  that,  the  current  register  values,  whatever  they  were, 
are  uploaded  from  the  ECB. 

If  Coprocessor  will  be  used,  that  option  should  be  selected  in  the  Options 
menu,  before  clicking  Download. 


A-  GoTo/Call: 

There  are  two  types  of  program  execution,  as  far  as  the  procedure  is 
concerned.  They  are: 

1-  Goto 

2-  Call 
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The  user  as  to  end  his  program  either  with  RTS  or  with  TRAP  #15,  depending 
on  the  situation.  This  was  described  above,  at  step  11.  The  purpose  of 
"Call"  is  that,  with  this  choice,  the  user  can  easily  test  and 
run  his  subroutines . 

B”  Return  to: 

User  has  choices  about  which  menu  to  go  after  that  part  of  execution 
of  his  program,  the  default  return  menu  is  "No  Menu"  where  no  menu 
displayed,  instead  the  register  values,  and  the  instruction  following 
the  last  executed  instruction  in  a  disassembled  form  are  displayed. 

Clicking  on  "Return  to",  "Registers  Menu"  is  selected,  which  simply 
displays  the  "Register  Menu" . 

Clicking  on  "Return  to"  a  second  time,  "Go  Menu"  is  selected,  which 
makes  the  same  menu  appear  again. 

C-  Breakpoints : 

User  can  set,  upto  five  breakpoints.  The  "Clear  All"  option,  clears 
all  the  breakpoints.  Hitting  the  teib,  the  darkened  spot  passes  through 
the  breakcounts  first,  where  user  can  enter  the  count  he  or  she  wants. 

This  number  can  be  in  the  range  (0..9999).  After  Breakcounts,  Breakpoint 
addresses  can  be  entered,  just  by  typing  the  desired  address  and  hitting 
the  tab.  If  no  breakcount  was  entered  for  this  breakpoint  before,  its 
value  is  set  to  one,  automatically. 

D-  Display  Steps : 

If  this  option  is  made  "ON",  just  by  clicking  it,  every  step  taken 
during  the  program  execution  on  the  ECB  is  displayed  on  the  Macintosh. 

This  situation  may  be  useful  when  the  user  sets  any  Breakcount  to  a  value, 
bigger  than  one,  and  still  wants  to  see  the  outcome  of  every  single  step. 
If  this  option  were  not  used,  the  information  would  be  displayed  after  the 
Breakpoint  address  is  reached  as  many  as  Breakcount  times. 

E-  Cancel: 

Anything  done  during  this  Go  Menu  session  is  ignored. 


A  final  step  in  Go  Menu.  Clicking  "Go"  will  download  the  most  updated 
register  values,  breakpoint  information,  and  then  the  program  execution 
will  start . 


REGISTERS 


When  selected  displays  MC68020  register  information,  interrupt  level, 
and  condition  codes. 

A-  Registers : 

All  the  data,  address  and  control  registers  are  displayed.  Any  of 
these  registers  can  be  modified  just  by  entering  the  desired  content  and 
hitting  the  tab. 
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B-  Clear  All: 

When  clicked,  clears  all  data  registers,  and  all  address  registers 
except  A7,  which  Is  the  stack  pointer. 

C-  Active  Stack  Pointer: 

A7  entry  shows  the  active  stack  pointer.  Default  Is  "User  Stack  Pointer 

Clicking  A7  once,  switches  to  "Interrupt  Stack  Pointer" .  Clicking  A7  once 
again,  switches  to  "Supervisor  Stack  Pointer". 

D-  Condition  Codes : 

Displayed  as  radio  buttons,  where  darkened  one  means  that  bit  Is  set. 
User  can  change  condition  code  values  either  by  clicking  It,  or  by 
modifying  the  Status  Register. 

E-  Go: 

When  clicked,  does  the  same  function  as  what  It  would  do  In  "Go"  menu. 
But  there  Is  a  condition.  The  Registers  menu  should  have  been  called  by 
"Go"  menu,  which  means  that.  In  Go  menu  "Return  to"  field  was  "Registers 
menu"  before  the  last  clicking  of  Go.  This  option  Is  provided  just  for 
presenting  some  ease  to  user.  Because  this  way  he  does  not  need  to  go 
through  "Go  menu".  If  the  above  condition  does  not  hold,  clicking 
"Go"  does  not  mean  anything,  nothing  happens . 

F-  Interrupt  Level: 

Every  clicking.  Increases  the  Interrupt  level  by  one.  This  field  can 
also  be  changed  by  modifying  Status  Register.  Since  It  will  crash  the 
system,  the  user  Is  not  allowed  to  set  the  Interrupt  Level  to  a  value 
greater  than  three.  (Level  four  Interrupt  Is  used  for  establishing  serial 
communication.  If  a  higher  level  Interrupt  were  allowed  this  could  crash 
serial  communication  mechanism) . 

G“  Quit : 

Simply  quits  the  Registers  menu. 


FLOATING  REGS 


When  selected,  MC68881  Floating  Point  Register  Information,  FPCR 
(Floating  Point  Control  Register) ,  FPSR  (Floating  Point  Status  Register) , 
FPIAR  (Floating  Point  Instruction  Address  Register) ,  condition  codes. 
Exception  Status/Enable  byte  are  displayed.  This  menu  can  be  selected  only 
when  Coprocessor  option  Is  turned  On  In  the  Options  menu. 

Eight  Floating  Point  Registers  are  displayed,  each  consisting  of  four 
fields.  These  fields  are:  Exponent,  sign  of  exponent,  mantissa,  sign  of 
mantissa.  Each  field  is  modified  by  the  user  separately.  User  may  modify 
FPCR,  FPSR,  FPIAR,  by  typing  the  desired  value  and  hitting  the  tab.  User 
may  also  modify  condition  codes,  or  Exception  Status/Enable  bits  by  just 
clicking  them. 
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A-  Quit ; 

Singly  quits  the  Floating  Regs  menu. 
MEMORY  DISPLAY 


The  maximum  number  of  bytes  to  be  displayed  at  once  is  500. 

A-  From; 

The  beginning  address  of  memory  display  needs  to  be  entered  here^ 
by  just  typing  that  address  and  hitting  the  tab. 

B-  To: 

The  ending  address  of  memory  display  needs  to  be  entered  here, 
by  just  typing  that  address  and  hitting  the  tab. 

C-  Size: 

Size  is  the  number  of  bytes  to  displayed,  which  is  automatically 
calculated  and  displayed  (si^.e-from-to)  .  Entering  any  one  of  from 
or  "to”,  and  "size"  will  work  as  well. 

D-  Disassemble: 

The  memory  is  displayed  in  a  disassembled  format,  one  instruction  per 
line . 

E-  Cancel: 

Simply  ignores  that  Memory  Display  session. 

F-  Display: 

Clicking  Display,  causes  the  display  of  the  desired  memory  locations. 


MEMORY  WRITE 


When  selected,  user  is  able  to  modify  any  memory  location.  That 
memory  location  can  be  Byte,  Word  (two  bytes),  or  Longword  (four 
bytes)  in  length.  In  case  Increment /Decrement  option  is  selected, 
"Location"  is  Incremented/Decremented  by  one,  two,  or  four,  according  to 
the  data  length  being  modified. 

When  "No  change"  is  selected,  "Location"  is  not  modified,  so  following 
writes  occur  to  the  same  memory  location. 

A-  Location: 

The  address  of  the  mer.tory  location  to  be  modified.  User  can  enter  the 
address  by  just  typing  it  and  then  hitting  the  tab. 

B-  Contents: 

Here,  user  has  to  type  the  new  content  of  that  memory  location.  The 
memory  write  is  done  only,  when  the  user  hits  the  tab. 
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C-  Verify: 

When  selected,  a  memory  write  to  that  location  is  done,  following 
that,  a  memory  read  is  performed  from  the  same  memory  location.  This 
value  is  sent  back  to  the  Macintosh,  where  it  is  compared  against  the 
desired  content,  by  the  debugger.  If  an  error  is  detected,  user  is  alerted. 

D-  Quit: 

Simply  quits  the  Memory  Write  menu. 


OPTIONS 


When  this  menu  is  selected  four  options  will  be  displayed.  Clicking 
any  of  these  options,  will  toggle  it  (ie.,  turning  it  ON  and  OFF).  The 
following  describes  what  is  done  when  any  particular  option  is  selected. 


A-  Hardcopy: 

Whatever  seen  on  the  screen  is  also  sent  to  a  serial  printer.  This 
option  might  be  useful  especially  when  user  dumps  large  number  of  bytes 
of  memory. 

B-  Coprocessor : 

If  user  wants  to  access  Coprocessor  this  option  should  be  selected 
before  Downloading.  Turning  this  option  on  enables  the  "Floating  Regs" 
menu,  which  would  not  be  accessible  by  the  user,  otherwise. 

C-  Refresh  Screen: 

Following  a  Quit  from  any  menu,  instead  of  displaying  a  blank  screen, 
a  screenful  information  is  displayed.  This  information  is  obtained  from  a 
circular  queue,  which  contains  the  last  displays  on  the  screen. 

D-  Experienced: 

If  the  user  is  not  experienced  he  is  not  allowed  to  change  interrupt 
levels . 


PREVIOUS  SCREEN 

When  selected,  the  last  screenful  information  is  sent  to  the  serial 
printer.  In  a  sense,  it  is  like  a  hardcopy  of  Refresh  Screen. 

CLEAR  SCREEN 

When  selected,  clears  the  screen. 


HELP 


Displays  help  information. 
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APPENDIX  G:  SAMPLE  ASSEMBLY  LANGUAGE  PROGRAMS 


X-  Sanpla  Progran  #1 

The  following  program,  copies  the  elements  of  ARRAY_A  to  ARRAY_B. 
Each  element  is  one  byte  long. 

i-  Source  Code 


**  Sample  Program  #1  ** 


/Label 

Opcode 

Operand 

/Field 

Field 

Field 

ARRAYA; 

BLKB 

5 

ARRAYB: 

BLKB 

5 

/ASSUME 

ARRAY_A 

HAS  SOME  VALUES 

t 

LEA 

ARRAYA, AO 

LEA 

ARRAYB, A1 

MOVE.B 

#5, DO 

LOOP : 

MOVE.B 

(A0)+,  (Al)  + 

SUB.B 

#1,D0 

CMP.B 

#0,D0 

DONE: 

BNE.S 

LOOP 

Comment 

Field 

•define  array_a 

/DEFINE  ARRAY_B 


;A0  POINTS  TO  ARRAY_A 

/A1  POINTS  TO  ARRAY_B 

/FIVE  ELEMENTS  TO  BE  COPIED 

/COPY  ELEMENT  OF  A  TO  ELEMENT  OF  B 

/DECREMENT  THE  COUNTER 

/FIVE  OF  THEM  COPIED 

/NO...  COPY  ONE  MORE. 
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11-  Listing 


2500  A.D.  68000  Macro  Assembler  -  Version  4.03a 


Input  Filename  :  samplel.asm 
Output  Filename  :  samplel.obj 


**  Sample  Program  #1  ** 

/Label  Opcode  Operand  Comment 

/Field  Field  Field  Field 


00000000 

00000005 


ARRAYA:  BLKB  5 

ARRAYB :  BLKB  5 


/DEFINE  ARRAY_A 
/DEFINE  ARRAY_B 


9 


/ASSUME  ARRAY  A  HAS  SOME  VALUES 


• 

OOOOOOOA 

41F9 

0000 

0000 

00000010 

43F9 

0000 

0005 

U0000016 

103C 

0005 

OOOOOOIA 

12D8 

LOOP: 

OOOOOOIC 

5300 

OOOOOOIE 

OCOO 

0000 

00000022 

00000024 

66F6 

DONE; 

LEA  ARRAYA, AO 
LEA  ARRAYB,  A1 
MOVE.B  #5,  DO 

MOVE.B  (A0)+, (Al)+ 
SUB.B  #1,D0 
CMP.B  #0,D0 
BNE .  S  LOOP 


/AO  POINTS  TO  ARRAY  A 
/A1  POINTS  TO  array's 
/FIVE  ELEMENTS  TO  BE 
/  COPIED 

/COPY  ELEMENT  OF  A  TO 
/ELEMENT  OF  B 
/FIVE  OF  THEM  COPIED  ?.. 
/NO..  COPY  ONE  MORE. 


Lines  Assembled  :  23 


Assembly  Errors  :  0 
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B.  Swapl*  Program  #2 


Source  Code 


/**  Sample2.asm  **/ 

The  following  progreun  Is  to  give  an  Idea  ed^out  the  usage 
of  Coprocessor  commands.  Here  the  Instructions  are  given 
in  their  open  form,  the  mnemonics  of  these  commands  are 
given  in  the  comment  field. 


DC.W 

DC.W 

$F200 

$1236 

■FSINCOS.X  FP4,FP5,FP6 

•FP4  <-  X  (Prior  to  execution) 

•FP5  <-  SINE(X), 

•FP6  <-  COSINE (X) 

DC.W 

DC.W 

DC.W 

DC.W 

$F23C 

$4300 

$0000 

$0006 

FMOVE.L  ♦6,FP6 

MOVE.L 

DC.W 

DC.W 

#2,D6 

$F206 

$4322 

FADD.L  D6,FP6 
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